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Preface 
to the Second Edition 


The CIPS APL SIG is the APL Special Interest Group of the 
Canadian Information Processing Society. The Toronto APL Toolkit 
had its origin in the the suggestions of several members of this group 
who wanted to share useful APL functions among themselves and with 
the entire APL community. The project was begun in 1983, and an 
editor was appointed to coordinate, review, test, and document 
everyone’s contributions of suggestions and functions. 


Functions were published and distributed at meetings of the SIG 
during 1983 and 1984. These “working memos” stimulated discussion 
and led to the correction and improvement of many of the functions. A 
final draft of this manual was reviewed in May, 1985, and published as 
the first edition in September. At that time Sections 5 and 6 were not 
complete. 


In so far as a work of this nature can ever be “finished”, this second 
edition completes the work begun in the first edition. And extensive 
changes have been incorporated into the second edition. Sections 5 and 
6 used to be arranged strictly by function in alphabetical order; now the 
listings and documentation are arranged by category. Almost every 
major function in the first edition has been revised, corrected, enhanced, 
or redocumented. There were 110 functions in the first edition. Ten 
have been removed, and 50 functions added. Section 6 originally had 16 
supplementary documents - it now has 115 documents. Three 
appendices have been added. Hopefully the quality and usefulness of 
the collection has grown in similar measure. 
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We feel that the project has accomplished more than enough to be 
useful to a wide audience, and remain relevant in the world of APL 
today. There are still hardly any publicly available, well-organized, 
documented collections of commonly useful APL functions following the 
ISO standard. We are therefore continuing to distribute this manual 
and endeavouring to make the associated TOOLKIT workspace 
available in computer-readable form. We invite the entire APL 
community to benefit from this work. 


Richard Levine (editor) 
Toronto, Canada. 
May, 1988 
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Section 1 
Introduction 
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The needs of the “software engineer” are similar to those of 


the mechanical engineer, since building any structure 


requires tools and materials. 
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What is the APL Toolkit? 


The APL Toolkit is a collection of APL functions. As the picture on 
the opposite page suggests, building a structure requires both tools and 
materials. Architects and engineers design and build the building - and 
“software architects and engineers” working in an APL environment 
design and build workspaces, that is, application systems, which are the 
end-product of software building. In the sense of this comparison, the 
name “Toolkit” for this collection is somewhat of a misnomer, because it 
contains some function that are strictly design and building tools, and 
others that represent the actual “materials” or “building blocks” that 
become part of the finished application system. 


One noteworthy aspect of this collection is the wide variety of 
sources. The functions are taken from journals, books, conference 
proceedings, working papers, ancient utility workspaces, established 
software, and numerous contributions. Several functions have been 
previously published in journals that are either difficult to obtain or no 
longer in print, or indeed have never before appeared in an organized 
collection. 


Another aspect is the the wide-ranging nature of the collection. 
Some of the functions are primarily used in the programming process, 
while others simply illustrate useful techniques of APL coding. There 
are some functions of historical interest, some that are simply for “fun”, 
and some that are surprisingly powerful and sophisticated. 


Why the name “APL Toolkit”? This has often been asked. A 
better name, perhaps, might have been the “APL Toolbox", as it is full of 
functions that are useful one way or another. Certainly it is full of 
surprises, but hopefully it will not be called “Pandora’s APL Box”, in 
remembrance of the Greek myth. Hopefully, the functions and 
techniques described here will not lead the reader to programming grief! 
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Scope of the Toolkit 


The Toolkit consists of complete functions, not “expressions“ or 
“idioms”. This was mainly because “idioms” are already well-covered in 
other literature, in particular the Finnapl Idiom Library, and also 
because there is an interest and a need for a collection of complete 
defined functions. 


On the other hand, the Toolkit for the most part does not consist of 
sets of functions performing complete tasks. The functions are intended 
to be “basic”, “low-level”, and “independent”. For example, a simple 
text-manipulation function is appropriate for this collection, but a text- 
editing system (set of functions) is not.. A single numerical computation 
such as rounding or some few statistics is appropriate, but not a 
complete statistical system. 


Still, the the scope of the word “functions” is very large, and 
therefore we placed a loose restriction on the length of functions, 
namely, one page (approximately 66 lines, including comments). This 
restriction is somewhat arbitrary, and several functions are indeed 
longer, but trying to follow this limit did in fact focus our creative 
efforts. 


Guidelines 


In considering the collection as a whole, it was not enough simply 
to collect functions. Considerable effort was put into editing. Emphasis 
was placed not only on correct and useful functions, but on logical 
organization, good naming conventions, effective syntax, generality, 
and readable presentation methods. 


Here are some of the guidelines that were followed in developing 
the functions and attempting to meet these aims. 


Reliable, robust code. This guideline was uppermost in our 
minds. Various aspects of reliability were considered. Boundary 
conditions, such as empty arrays, are handled in a suitable fashion. All 
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the functions (except those in the category “library-utility”) will work in 
either origin. Rank and domain restrictions on arguments are 
validated, with suitable error messages if restrictions are not met. All 
examples in the documentation are computer-generated (using the 
SCRIPT function) so that testing was integrated into the generation of 
documentation. Finally, the functions were used in many applications 
in an attempt to eliminate bugs. If there are any actual “bugs” 
remaining, feel free to contact the editor using the form at the back of 
the book. 


Of course, still more error checking could be provided; in 
particular, not all domain restrictions (e.g. character vs. numeric) and 
rank restrictions (e.g. rank-2 maximum vs. any rank) are caught. 


Consistency. A consistent style is used both for coding and 
documenting the functions. 


Integration. The functions work together, whenever possible. 
There are numerous examples of this throughout the workspace. 


Boolean results. Where appropriate, the functions return 
Boolean results that can be used to compute other results. Examples are 
BP, PICK, PICKN, AROWMEM, EXPANDAF, and EXPANDBE. 


Portability. All the functions follow the proposed ISO APL 
language standard. This means that the functions are expected to work 
on every APL system that follows the standard, without exception. 
Please let us know if any function fails this requirement. 


Documentation. There isa one-line description at the beginning 
of every function, and comments throughout. Most functions also have a 
supplementary document which is printed in this manual in Section 6. 


Efficiency. Optimal efficiency was not a requirement for initial 
inclusion in the collection, although many of the functions are efficient. 
Because of the obvious time constraints in developing a collection of this 
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size and scope, the first priority was to develop a useful collection that 
was worth making more efficient, where and as necessary. Again, 
suggestions for more efficient functions can be sent to the editor for 
inclusion in the next edition. 


Level of “Nesting”. The level of “nesting”, that is, the number of 
functions called by another, is kept toa minimum. The majority of the 
functions are self-contained. Again, this guideline mainly served to 
limit the potentially enormous scope of the collection. It also 
encouraged the development of simple functions, and functions that 
worked together at the calling level by passing general results, rather 
than by calling one another with particular results. 


This guideline was relaxed somewhat in the second edition, as it 
became apparent how important it was to recognize and use common 
algorithms in many functions. Using functions in other functions 
certainly avoids the needless repetition of common code. 


Coding Conventions 


Checking for subfunctions. Certain functions have been 
treated as “core” functions: it is assumed that they are already present 
in the workspace. Currently only three functions are so treated, 
namely, ABOX (vector to matrix), ADB (delete redundant blanks), and 
CHECKSUBROUTINE (check for missing subroutines). Indeed, two of 
these functions, ABOX and ADB, are so useful that they have been 
made into system functions on several APL systems. (A fourth core 
function is being considered - CHECKERROR. It would return 
standard error messages.) 


If any other subfunction is needed, its presence is tested at the 
beginning of the function execution. If a required function is missing, a 
warning message is issued and the calling function is allowed to 
continue execution. It will suspend at the point where the required 
function is called. 
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This convention has one major exception: it is expected that the 
functions in the “library-utility” category (the Toolkit functions for 
managing the workspace) are executed within the environment of the 
workspace, and there is no special checking for the presence of 
subfunctions. 


Error checking. If an argument error is caught, there is usually 
a branch to the end of the function, where a standard error message is 
given. Then the explicit result is “expunged”, and then a branch to 0. 
This has the effect of printing an error message, and then the APL 
interpreter catches a value error after exiting. This is a quick and 
portable way of suspending the function. Note that SA (stop control) is 
not part of the ISO standard, but (STOP is not available as of this 
writing on all major APL systems. (Some APL interpreters allow 
COSIGNAL, which would be very useful for error checking were it 
included in the standard.) 


Origin-independence. Origin-independence is typically ensured 
by localizing DIO (in the header line). Sometimes the algorithm 
depends in an interesting way on the value of (IO; where this has been 
recognized, [IO is explicitly used in that algorithm. 


Branching on a true/false condition. The following code is 
commonly used: 

«(1 0 = TEST)/LABT, LABF 
This branches to label LABT if TEST is true, and to LABF if TEST is 
false. 


Avoiding name conflicts. When using OCR, OFX, ONC, 
CONL,and the execute function, it is important to consider that the 
function names (and the variable names in executed text) may be 
“shadowed” by the local variables used in the function. “Shadowing” is 
the conflict between names used in a function, and the same names used 
in the workspace. This is usually avoided by following some suitable 
naming convention. In the Toolkit the convention is very simple, 
namely, to reserve names whose first letter is underscored. These 
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names are used only in those functions that analyze other functions or 
variables. It is expected that the programmer avoid using such names 
for names of functions or global variables. 


An effective technique that narrows the scope of potential name 
conflicts to a few modules is the use of “driver” functions. Consider as 
an example the use of (CR, where one must consider name conflicts. 
One executes (JCR in the driver function, and then passes the result of 
CR to another function for subsequent operations, such as 
reformatting or textual analysis. The subsidiary function need not be 
concerned with name conflicts. Examples of this approach are found in 
the function “partners” BAL and BALANCE, SORTL and 
SORTLOCAL, and FGL and GLOBAL. 


In summary, one should use techniques that reduce the occurrence 
of potential name conflicts, and avoid bizarre naming conventions that 
destroy the readability of the functions. 


Embedded assignments. There should be no embedded 
assignments to variables if the variables are reused on that line. 
(Thanks to Roy Sykes for pointing this out in the final draft.) 


Character matrices and vector lists. Where a character matrix 
is required as an argument, and each row of the matrix represents the 
name of some object to be used, a blank-delimited vector list is also 
acceptable. The vector may contain an arbitrary number of redundant 
blanks. 


“Tag lines”. After the first documentation line of each function, 
there are one or more comment lines “tagged” by a letter preceded by a 
period. Briefly, the meaning of the most common letters are as follows: 


.E example line. 
An executable example of the use of the function. 


.K key word line. 
At the present time this is the category of the function, and is 


The APL Toolkit page 1-7 


used by library utilities to produce various lists of functions 
by category. 


-_N name line. 
The name of the author. 


.T  time-stamp line. 
This is a time-stamp updated by the text-editor used to 
develop this collection. The time-stamp was updated every 
time the function was changed, even in a very minor way. 
This can used to decide upon the most recent version of a 
function. 


-V__ version number line. 

This contains an arbitrary version number optionally 
followed by the version date. This is usually the date when 
the algorithm was developed or changed in a major way, and 
serves to place the function in a meaningful time context. 
This number is controlled by the programmer, and would not 
be changed by the text-editor when the time-stamp line was 
changed. 


The “tag line™ concept has proved very useful in keeping track of 
all the functions. Several functions (GETTAG, PUTTAG, DELTAG) in 
the library-utility category were developed to maintain tag lines. These 
functions and the tag-line concept can be applied to other utility 
workspaces. See the documentation on GETTAG for more details. 


Names preceded by A. At the present time some of the functions 
are prefaced by the delta (A) character. This is our attempt to recognize 
functions whose definition has been accepted and well-tested. You will 
probably find functions with the same arguments and results, perhaps 
even with the same names, in many APL installations. Functions 
whose names do not begin with delta have not yet been so recognized. 
As other functions in this collection are recognized to be common 
throughout APL installations, it is planned that their names will be 
prefaced by delta. 
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Names with numeric suffix. Some of the functions have a 
numeric suffix, for example, GRADEUP1, BOX1, etc. These are 
alternative versions of GRADEUP and ABOX, respectively. In general, 
a function named with a numeric suffix is an alternative version of the 
function whose name is not suffixed with a number. The difference is 
usually either in the algorithm, or in range of the arguments or results. 
This is our attempt to cope with the often numerous but differing 
suggestions for a similar function. In some cases the name (without the 
number) is given to the most general algorithm. In other cases, the 
choice was arbitrary. Leaving alternatives within the collection allows 
everyone to make their own choice, and encourages discussion to take 
place. This numeric method was preferred to “cluttering” the workspace 
with different and arbitrarily chosen names for the same or similar 
function. 


Sources 


The ideas and functions embodied in this collection came from 
many sources. First of all, where a function was contributed directly to 
the Toolkit, or was taken from the literature that is in the public 
domain, the contributor’s name, where known, was noted within the 
function code. 


Secondly, many members of the CIPS APL Special Interest Group 
made contributions to the Toolkit. In alphabetical order they are listed 
as follows: 


Jarry Apsit John Irwin 

Zel Baltman Howard Katz 
Adrian Browne Eike Kaiser 
Sandy Browne Dan King 

Frank Chow Jamie Menendez 
Lee Dickey Shaya Petroff 
Henk Edens Morgan Smythe 


Thirdly, ideas came from the following books and software: 


(1) 


(2) 


(3) 


(4) 
(5) 


(6) 


(7) 


(8) 


(9) 
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APL Programming Guide, First Edition, ed. Timothy P. Holls. 
(IBM Corporation, 1978). 

The APL Handbook of Techniques, ed. Dave Macklin (IBM 
Corporation, 1979). Program Product $320-5996. 

Finnapl Idiom Library, Second Edition - July 13, 1982. (Finnish 
APL Association, Helsinki, Finland, 1982). 

Various IPSA newsletters 

APL - A Design Handbook for Commercial Systems, Adrian 
Smith. (John Wiley and Sons, Inc., 1982). 

APL Complementary Functions Systems Guide, Second Editon 
(IBM Corporation, Program numbers 5785-DBX, 5785-DBY, 
April, 1979). 

EXAMPLES Workspace (IBM Corporation, Program number 
5748-AP1, 1981) 

Boolean Functions and Techniques, Robert A. Smith. (Scientific 
Time-Sharing Corporation, Working Memorandum No. 106, July, 
1975.) 

APL, An Introduction, Howard A. Peele. (Holt, Rinehart and 
Winston, New York, 1986.) 


Finally, I wish to acknowledge the many people, both members 


and non-members of the Special Interest Group, who gave me 
encouragement and support and suggested many ideas and approaches 
that were incorporated into this collection. 


Future Work 


Based on the feedback received from this second edition, we plan to 


produce a third edition. You can use the comment form found at the 
back of this manual, or send comments directly to the address noted on 
the inside front cover. 


Feel free to comment on the organization of the manual or the 


workspace, function names, understandability of documentation, or any 


other aspect that strikes your attention. 
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New functions and more efficient algorithms are especially 
welcome. Anyone who contributes a function that is published in the 
next edition of this collection will be sent a complimentary copy of the 
manual. Since inclusion of a function in this collection implies that the 
function can be freely reproduced and/or used, we request that each 
contributor ensure to the best of their ability that no copyright and/or 
proprietary rights would be infringed through inclusion of the 
contribution in this collection. 


The workspace is also available for distribution to commercial and 
university time-sharing systems. See inside front cover for details. 


The APL Toolkit 


Section 2 
The Toolkit: 
Organization and Usage 
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Organization of this Manual 


For purposes of documentation and organization, the functions in 
this collection have been grouped into categories. Section 3 contains a 
description of each category. There is also a summary table of the 
categories in Table A of that section. 


If you want to search for a particular type of function, find the 
appropriate category in Table A, or consult the “Index of Functions 
Within Category” in Section 4. This index gives the page number on 
which a function will be found in Section 5. 


If you want to review a function and you know the name, you can 
refer to the Function-Category Cross-Index in Section 4. The functions 
are arranged in alphabetical order. 


There are descriptions and technical comments within each 
function listing, all of which are collected in Seciton 5. Also, for most 
functions, there is supplementary documentation in Section 6. Where 
such documentation exists, the Index of Functions in Section 4 contains 
an asterisk beside the function name. 


Organization and Use of the Workspace 


The workspace may be viewed as a collection of functions. There is 
no group structure. However, the functions have logically been placed 
into categories for explanatory purposes and to aid in finding suitable 
functions for an application. 


If you want to use a function, simply copy it into your own 
workspace. Remember that a Toolkit function could use one of the 
“core” functions (ABOX, ADB, and CHECKSUBROUTINE), so these 
should always be present in your workspace. Copy them in if necessary. 
A few of the functions call other functions, but these are checked for by 
CHECKSUBROUTINE in accordance with the guidelines described in 
the Introduction. Note that no attempt is made to “autocopy” missing 
functions. (This is partly to maintain portability.) 


page 2-2 The APL Toolkit 


Documentation for the Workspace 


This manual contains the complete documentation for the 
workspace. 
There are also useful reporting functions within the workspace 
itself, in particular the following: 
(a) CONTENTS 
(B) FUNSINCAT 
(C) CATOFFUN 
To obtain a directory of all functions in the workspace, enter the 
following: 


R<CONTENTS ONL 3 
This will show the names of all the functions and categories in the 
workspace. 

To obtain a list of all functions in category <X>, enter the 

following: 

R<(ONL 3)FUNSINCAT X 
To obtain the name of the category to which function <X> belongs, 
enter the following: 

R<CATOFFUN X 


These functions all return explicit results, and may therefore be 
used in combination. For example, to obtain the list of all functions 
within the same category as function <X>, you can enter the following 
statement: 


R< (QNL 3) FUNSINCAT CATOFFUN X 


Furthermore, all results returned by these functions, in particular, by 
CONTENTS, are character matrices, and you can probably review them 
on your system text-editor. 


More notes on these functions can be found in Section 6. 


The APL Toolkit 


Section 3 
Description of Categories 
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Table A. Categories of Functions 


fasts _______[tomputingandformauiingdates———————s 
delete elements 


input [requesting nput from terminal —————————s 
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Catenation 

This category contains functions for catenating arrays that would 
normally be inconformable with respect to “standard” APL. Currently 
the maximum rank handled by the functions is 2; that is, the functions 
work only for scalars, vectors, and matrices. 


Computation 

This category contains functions that do numeric computations. 
They represent the type of algorithm that is very useful to have when 
needed, but is not a replacement for complete statistical systems. 


Date 

A very common task is to compute with dates and to format dates. 
The function <JULIAN> provides a useful foundation for computing 
with dates. 


Note that a distinction is made between functions that treat dates 
as numerics, and functions that format these numerics in various ways. 


These functions are based primarily on (TS. 


Delete Characters 
This category contains functions for deleting specific characters. 


A common expression for deleting character <C> from vector 
<V> is the following ... 


V<(C#V)/V 
This deletes all occurrences of <C>. But this simple expression is not 
“enshrined” as a separate Toolkit function. Rather, the functions in this 
category deal with somewhat more complex situations, such as deleting 
only leading occurrences of a given character, deleting “redundant” 
occurrences of a given character, etc. 
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Delete Elements 

This category differs from the “Delete Characters” category in that 
elements are deleted based on “logical” or “contextual” considerations, 
such as being a “duplicate” element, being situated between quotes, etc. 


Expansion 

This category provides functions used to specify an expansion 
vector. The approach is to provide expansion (boolean) vectors, rather 
than provide separate and unique functions for expanding vectors, 
matrices, etc. 


Formatting 

This category provides functions for presenting information in 
specific formats. There is a reasonably interesting set of functions, but 
there is no intention to replace the common (non-standard) functions for 
formatting found on many systems, such as (JFMT, “enhanced thorn” or 
the “picture function”. 


Graphics 

This category is a “fun” category collecting some interesting 
examples of patterns or graphics that can be generated on a simple APL 
terminal. They are worthy of study for the APL expressions and 
techniques used in them. 


Input 

A practical set of functions for input-checking and validation are 
very extensive and dependent on the APL terminal. Therefore, there 
are few “input” functions in this collection. 
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Library Utility 

This category contains functions for managing the Toolkit 
workspace. This includes managing the “tag-lines” of the functions and 
printing various lists of functions. They provide a useful set of functions 


that can be used to manage any workspace collection of functions. They 
are oriented towards computers that are on the “high” end of the CPU 


scale, but as “desktop” computers become more and more powerful, the 
techniques used in these functions will become more practical on these 
“desktop” computers. 


Note that CONTENTS is a portable function that can be used to 
print a useful summary document for any workspace. 


Output 

In practice the APL programmer uses a set of “utility” functions 
for output, as several coordinated actions are required throughout a 
typical application workspace, and managing output is dependent on 
the output devices. Appendix A contains an example set of output 
functions for the APL programmer’s “toolkit”. 


Plotting 

A simple plotting function is often needed “in a hurry” to do a 
simple plotting task. At some later time a more extensive “plotting 
package” can be applied to the problem. 


This category provides some simple plotting functions. 


Programming 

This category contains functions that have been so-often used 
when writing APL language statements that it seemed worthwhile to 
provide typical examples. 
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Programming Tools 

The functions in this category are useful in the actual process of 
writing APL-based application systems. This category includes several 
noteworthy functions for workspace management, in particular the NL 
function. 


Again it is emphasized that these functions are written in 
“standard” APL; they are not dependent on system functions only 
available on a few APL systems. 


Reshape 

This category contains functions for reshaping (or restructuring) 
arrays. Some of these functions (such as BOX) have been implemented 
as system functions on some APL systems. 


Searching 

Searching is an extremely important part of many programs, and 
also one of the most time-consuming. D.E. Knuth devotes half of volume 
3 of “The Art of Computer Programming” to algorithms for searching. 
This category is not as exhaustive as what Knuth provides! But bear in 
mind that ¢ and i are already sophisticated searching algorithms. 


The functions in this category extend the number of searching 
functions available to the APL programmer. 


Sorting 

This category provides some simple functions for sorting character 
objects. For example, the SORT function provides a useful syntactical 
form when a sorted result is wanted immediately, without having to 
consider the more basic “sort vector” result. 


Another function provides an algorithm for sorting character 
matrices. With the inclusion of character and matrix arguments for the 
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“grade” primitive in “standard” APL, several of these functions will no 
longer be necessary. 


Substitution 


This category contains the common “string replace” function. 


Text Editing 

In practice a set of functions for text-editing are very extensive and 
dependent on the APL terminal. Therefore, there are few “text-editing” 
functions in this collection. 


Time 
This small category contains functions for formatting times. 


Timing 

This category provides some simple but useful timing functions. 
They can be included in systems to provide feedback to the user as to 
how long a particular operation is taking. They can also be used by the 
programmer to provide a simple comparison of algorithms. These 
functions are based primarily on DAI. 


More sophisticated timing functions are available from vendors, 
but these are typically based on special system monitoring features. 


Translation 

This category provides some common translation functions, such 
as translation between decimal and hex notation, between numeric and 
character format, etc. 
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Uncategorized 

This category contains functions that have not yet been 
categorized. When more functions of a similar nature are added to the 
collection, a category might suggest itself. 


Validation 
The ‘Validation’ category provides functions that validate that a 
character vector has a certain logical format or syntax. 


Ce ee eee ee 


The APL Toolkit 


Section 4 
Index to Toolkit Functions 
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Annotated Index of Functions 


(as printed by CONTENTS function) 
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% = Indicates that supplementary 
documentation is in Section 6. 
- See Index to Documentation, page 4-13, 
or consult Section 6 directly. 
- Section 6 is arranged alphabetically by 


function within category. 


6 % DAYS 
7 


DMY 


Page number of listing in Section 5. 
(e.g. 7 means listing is on page 5-7) 


CATENATION 


1 * BESIDE Y+A BESIDE B. CATENATE ARRAY <A> TO ARRAY <B> (MAXIMUM RAWK 2) ON LAST COORDINATE 
1 * OW Y+A ON B. CATENATE ARRAY <A> TO ARRAY <B> (MAXIMUM RANK 2) ON FIRST COORDINATE 


comperarion 


ate AMORTIZE Y+AMORTIZE NV3. AMORTIZATION SCHEDULE ED ON <NV3> = DEBT, RATE, MONTHS 

2 * DROUND R+U DROUND ¥. DISTRIBUTIVE ROUNDING OF A VECTOR <¥> TO ARBITRARY SCALAR UNIT <U> 
2 Ds Z+DS IX. SBT OF DESCRIPTIVE STATISTICS FOR DATA <I> 

3 * DSTAT DSTAT X. LABELLED SBT OF DESCRIPTIVE STATISTICS FOR DATA <X> 

3 * RND R+N RND XY. ROUND NUMBER <X> TO <N> DECIMAL PLACES 

3 * RNDE ReRNDE X. ROUND <X> TO NEAREST INTEGER (.5 CASE GOES TO NEAREST BVEW INTEGER) 
3 * SUBTOTAL R+*P SUBTOTAL M. COMPUTE AND MERGE SUBTOTALS OF <M> DETERMINED BY POSITIONS <P> 
4 THRU R+F THRU TB. GENERATES AN EQUAL-INTERVAL VECTOR BETWEEN <F> AND <1+TB> 
DATE 

5 * CUULTAN Z+CJULIAN JS. CONVERT JULIAN Day NUMBER wys> TO MONTH,DAY, TEAR, STYLE 

5 * DATE R+DATE. RETURN TODAY'S DATE IN FORMAT: MONTENANE DD, YYYY 

5 DATEF Y+DATEF. RETURN TODAY'S DATE IN FRENCE 

6 * DATES Y*DATES N. RETURN MONTH,DAY,YEAR DATE EQUIVALENTS OF GREGORIAN DAY COUNT <N> 
6 * DAYS Y*+DAYS D. RETURN GREGORIAN DAY COUNT OF <D> = MONTH,DAY,YEAR 

7 DMY Y+DMY. RETURN TODAY'S DATE IN FORMAT DD MMM YY 

7 * BASTER Z+EASTER YS. COMPUTE EASTER FOR YEAR <YS(1]>, OPTIONAL STYLE <YS(2]> 

7 FDATE Y+FDATE T. RETURN DATE <T> = YYYY MM DD IW FORNAT: MONTHWAME DD, YYYY 

8 FDNY Y+FDMY T. RETURN DATE <T> = YYYY NM DD IW FORMAT DD NNN YY 

8 ISODATE ReISODATE. RETURN THE CURRENT DATE IN ISO FORMAT YYYY-MM-DD (LEADING ZEROS) 
8 * JULIAN Z+JULIAN DATE. RETURN JULIAN DAY NUMBER OF <DATE> = NONTH,DAY,YEAR 

9 * NDYOFORD R+MDYOFORD XY. RETURN THE MONTH,DAY,YEAR EQUIVALENT OF ORDINAL DATE <X> 

9 MOONPHASE R+MOONPHASE MDYS. COMPUTE NOONPHASE <R> OF DATE <NDYS>=NONTH ,DAY,YEAR,STYLE 
10 * ORDOFNDY Y+ORDOFMDY D. RETURN THE ORDINAL DATE EQUIVALENT OF <D> = MONTH,DAY, YEAR 

10 PAYDAY R+PAYDAY MDY. <Y> IS THE CLOSEST FRIDAY OW OR BEFORE <MDY> 


DELETE-CHARACTERS 


11 * CONDENSE Y+D CONDENSE V. REMOVE REDUNDANT BLANKS FRON <¥>, AND BLANKS AROUND CHARACTERS <D> 
ANKS FROM <X> AND BLANKS AROUND CHARACTERS <D> 


11 * CONDENSE1 Y+D CONDENSE1 X. REMOVE REDUNDANT 

11 * ADB Yea. V. DBLETE BLANKS (LEADING, TRAILING AND MULTIPLE) FROM V (RANK O ~ 2) 

12 * aDCc Y+C ADC V. DELETE CHARACTERS (LEADING, TRAILING AND MULTIPLE) FROM V (RANK 0 - 2) 
12 * ADLB I+aDLB V. DELETE LEADING BLANKS FROWN V (RANK 0 ~ 2) 

12 * ADLC I+C ADLC V. DELETE LEADING CHARACTER C FROM V (RANK 0 ~ 2) 

13° * ADTB Y+aDTB V. DELETE TRAILING BLANKS FROM <V> (RANK 0 - 2) 

13 * aDTCc I*C ADTC V. DBLETE TRAILING CHARACTER C FROM V (RAWK 0 - 2) 


DELETE-ELENENTS 


14 * DDUP Y*+DDUP X. DELETE DUPLICATE ELEMENTS FROM VECTOR OR MATRIX <X> 
14 * SUPPRESS P+D SUPPRESS V. SUPPRESS CHARACTERS IN MATRIX <¥> DELIMITED BY DBLIMITERS <D> 


EXPANSION 


15 * BXPANDAF R+EXPANDAF W. <R> IS EXPANSION VECTOR TO INSERT <W[I]pO> AFTER THE I-TH POSITION 
15 * EXPANDBE R+EXPANDBE W. <R> IS EXPANSION VECTOR TO INSERT <W(I]p0> BEFORE THE I-TH POSITION 


FORMATTING 


» ADJUST Yer ‘aust D. ADJUST BACH ROW OF MATRIX <D> ACCORDING TO PARAMETERS <X> 
* BALANCE Y+BALANCE N. DISPLAY BALANCE (NESTING LEVELS) IN TEXT VECTOR <N> 

17 * DISPLAYFUNCTION Z+DISPLAYFUNCTION A. DISPLAY OF CANONICAL MATRIX <A> 
* DISPLAYFUNCTION1 2Z+B DISPLAYFUNCTION1 4. DISPLAY OF CANONICAL MATRIX <A> USING BXDENT <E> 
* FIXUPARRAY Y+FIXUPARRAY DATA. RETURN CHARACTER MATRIX FROM ARRAY <DATA> 


ca ReJC X. JUSTIFY CENTRE: CENTRE ALL ROWS OF LEFT-JUSTIFIED CHARACTER ARRAY <X> 


SPLIT Y+W SPLIT LINE. SPLIT TEXT VECTOR <LINE> INTO <W>-SIZE PIECES 
ACENTE Y+FLD ACENTH LABEL. CENTRE COLUMN HEADINGS <LABEL> WITHIN FIELDS SPECIFIED BY <FLD> 
ACENTT Y+W ACENTT TEXT. CENTRE <TEXT> WITH LEFT, MIDDLE, AND RIGHT PHRASES IN <W> SPACES 


* 
19 * JL ReJL XY. JUSTIFY LEFT: JUSTIFY CHARACTER ARRAY <I> 
19 * JR ReJR XY. JUSTIFY RIGHT: JUSTIFY CHARACTER ARRAY <I> 
19 * MATACROSS Y+PW NATACROSS M. DISPLAY MATRIX <M> WITH MULTIPLE COLUMNS ACROSS PAGE OF WIDTH <PW> 
19 * MATDOWN Y+d MATDOWN M. FORMATS MATRIX <M> IN COLUMNS DOWN A PAGE ACCORDING TO <A> 
20 * REFORMAT Y+A REFORMAT M. REFORMAT <M> TO A[1] COLUMNS WIDE AND A(2] PRECEEDING BLANK COLUMNS 
20 * SORTLOCAL Y*SORTLOCAL X. SORT LOCAL VARIABLES IN FIRST LINE OF <X> = CANONICAL MATRIX 
* 
* 
* 


GRAPHICS 


* FIBSPIRAL NeA FIBSPIRAL B. FIBONACCI SPIRAL. CHOOSE <A> AND <B> FROM FIBONACCI SERIES 
* PATTERNG Z+M PATTERNG C. RANDOM REARRANGEMENT OF TEXT <C> BASED ON <M> 
23 * TRIANGLE Y+TRIANGLE N. PRINT A PRETTY TRIANGLE USING #\ WHERE <N> IS A POWER OF 2 

* XYFADE R+S XYFADE C. TRANSFORM TEXT IN <C> USING A ‘FADING* ALGORITHM CONTROLLED BY <S> 


25 PROMPT Y+PROMPT MSG. SIMPLE PROMPT WITH <NSG> AND REQUEST INPUT ON SAME LINE 


26 AFTER I+KUNS AFTER TS. GET ALL FUNCTIONS WITH TIMESTAMP GREATER THAW <IS> 

26 CATEGORY Y+CATEGORY XY. RETURN NAMES OF CATEGORY DOCUMENTS CORRESPONDING TO WANES <X> 

27 ® CATOFFUN Y+CATOFFUN X. RETURN CATEGORIES REPRESENTED BY FUNCTIONS <X> 

27 * CONTENTS Y+CONTENTS NAMES. RETURW NEATLY FORMATTED REPORT OF FUNCTIONS <NANES> BY CATEGORY 
28 CONTENTS1 I+CONTENTS1 X. FORMATTED REPORT OF FUNCTIONS <X> BY CATEGORY 

29 DELTAG I*CODE DELTAG ENS. DBLETE TAG LINE <CODE> FROM FUNCTIONS <ENS> 

29 * EXAMPLE BYAMPLE W. BXECUTE EXAMPLE LINE ('B' TAG LINB) OF FUNCTION <N> 

30 BXPLAIN Y+EXPLAIN X. RETURN DOCUMENTS WANED IW <X> USING SCRIPT FUNCTION 

30 FUNCTION Y+FUNCTION X. RETURN WANES OF HOW DOCUMENTS CORRESPONDING TO FUNCTIONS <X> 

31 * FUNSINCAT +N FUNSINCAT X. SORTED LIST OF ALL FUNCTIONS IN <N> BELONGING TO CATBGORYS <X> 
31 * GETTAG I+ GETTAG M. GBT LINE CONTAINING TAG X (OR LINE I IF NUMERIC) FOR FUNCTIONS IN M 
32 PUTTAG Y+TEXT PUTTAG ENS. PUT TAG LINE <TEXT> ON FUNCTIONS <FNS> 

33 * SCRIPT Y+SCRIPT TEXT. RETURN DOCUMENT <> USING SCRIPT IN CHARACTER MATRIX <[EXIT> 


35 * OUT our X, PUT TEXT <X> TO OUTPUT DEVICE 

36 OUTCLOSB OUTCLOSE. CLOSE OUTPUT DEVICE 

36 OUTHEADER OUTHEADER. PRINT HEADER 

37 OUTOPEN HEADER OUTOPEN X. OPEN OUTPUT DEVICE SPECIFIED BY <X>. USE HEADING FUNCTION <HEADER> 
38 OUTPAGE OUTPAGE. ADVANCE DEVICE TO NEW PAGE 

38 PRINT PRINT TEXT. BXANPLE PRINT COVER FUNCTION TO PRINT <TEXT> OW PRINTER 

39 REPORT REPORT PARMS. SIMPLE BXIAMPLE OF USING THE OUTPUT FUNCTIONS 

39 REPORTHEADER REPORTHEADER. SIMPLE BXANPLE OF REPORT HEADER USING OUTPUT FUNCTIONS 


4O * GRAFD GF+CODES GRAFD X. HISTOGRAM OF DATA <I> SPECIFIED BY <CODES> 

40 aIST Y+HIST Y. SIMPLE HISTOGRAM OF DATA VECTOR <X> 

4O SCATTER MAT+Y SCATTER X. SIMPLE SCATTER PLOT OF VECTORS <¥> (Y-AXIS) AGAINST <I> (X-AXTS) 
41 « SIXLINE PLT+SIXLINE V. RETURN SIXLINE PLOT GIVEN X AND Y DATA IN <¥> = Nx2 MATRIX 

42 * STEMLEAF SL+STEMLEAF Z. STEM AND LEAF PLOT OF DATA <Z> 

430 * TOWER 2+TOWER X. TOWER CHART (SKYSCRAPER DIAGRAM) FOR CONTINGENCY TABLE <X> 


PROGRAMMING 


44 ® CHECKSUBROUTINE § CHECKSUBROUTINE L. CHECK WORKSPACE FOR SUBROUTINES <L> USED BY FUNCTION <N> 
ay vEQ ReXY VEQ Y. Rel IF VECTORS <X> AND <¥> ARE BQUAL. TRAILING BLAWKS IGNORED 


aye a Y+£ 4 R. GLUE FUNCTION. RETURN LEFT ARGUMENT <L> 
4h os AIF Y*LABEL AIF CONDITION. IF STATEMENT. RETURN <LABBL(IJ> IF <CONDITION[I]> = 1 


PROGRANNING-TOOLS 


4S * BAL Z+N BAL gd. DISPLAY BALANCE (NESTING LEVELS) IN LINES <g> OF FUNCTION <N> 
46 * CHANGE ‘Z+M CHANGE S. CHANGE NAME TO WEW TEXT IW FUNCTION <> USING <§> = /NAME/NEW 
46 * CHECKSIZE Y+CHECKSIZE LIST. RETURN REPORT SHOWING SIZES OF OBJECTS IN <LIST>, SORTED BY SIZE 
47 * FGL Z*FGL M. FIND GLOBAL REFERENTS OF FUNCTION <N> 
47 * FNLIST FNLIST [. FUNCTION LISTER. DISPLAY ALL FUNCTIONS IN LIST <I> 
48 * GLOBAL G+P GLOBAL M. GLOBAL REFERENTS IN CANONICAL FORM <M> OF FUNCTION <F> 
48 * LOOP LOOP X. PERFORM COMPUTATIONS FOR BACH BLEMENT (OR ROW) OF <I> 
49 os NL NLY+NLS NL NLC. WNANELIST OF FUNCTIONS OR VARIABLES <NLC> WITHIN SPECIFICATION <NLS> 
49 * QSTOP I+L QSTOP N. SBT STOP VECTOR FOR FUNCTIONS <N> ON LINES <L>, BUT NOT COMMENTS 
* 


49 QTRACE Y+L QTRACE N. SBT TRACE FOR FUNCTIONS <N> OW LINES <L>, OPTIONALLY AVOID COMMENTS 
49 SHARES Y+SHARES. RETURN NAMES OF SHARED VARIABLES 

50 * SORTL Z+SORTL N. SORT LOCAL NAMES IN HEADER OF FUNCTION <N> AND FIX RESULT 

50 STOPTRACE I+L STOPTRACE WAMES. SUBROUTINE FOR QSTOP AND QTRACE 

51 * VIYPE R«VTYPE XY. GIVE 'TYPE' OF VARIABLE <X>, WHERE 1=LOGICAL,2=CHAR,3=INTEGER,4=REAL 
RESHAPE 

52 * ARRAY R+DEL ARRAY STR. GENERAL VECTOR RESHAPE. RESHAPE VECTOR <STR> USING DELIMITERS <DEL> 
52 * BOXF Yew BOXF V. BOX FIELDS. <¥(I;]> IS A FIELD OF VECTOR <¥> SPECIFED BY WIDTH <W(I]> 
52 Box. R+SEP BOX1 XY. RETURN MATRIX <R> FROM VECTOR <X> DELIMITED BY SEPARATOR <SEP> 


53 * DIMENSION R+RCM DIMENSION M. COMPUTE (N-1) DIMENSION ARRAY FROM COORDINATE/DATA MATRIX <M> 

5% * DUPARRAY Y+A DUPARRAY M. DUPLICATE ARRAY <M>. DUPLICATE <AC1)> TIMES ALONG COORDINATE <A(2]> 
Sa DUPARRAY1 Y+N DUPARRAY1 M. DUPLICATE ARRAY <M>. DUPLICATE <N> TIMES ALONG COORDINATE 1 

54 * MATRIX Y+MATRIX XY. RESHAPE ANY ARRAY <X> (RANK 0 - WN) TO 4 MATRIX 

55 * REPARRAY Y+A REPARRAY MN. REPLICATE ARRAY <M>. REPLICATE <A(1J> TIMES ALONG COORDINATE <A(2]> 
55 REPARRAY1 Y+d REPARRAY1 M. REPLICATE ARRAY <M>. REPLICATE <A[1]> TIMES ALONG COORDINATE <A(2]> 


56 * UNBOX R+C UNBOX XY. UNBOX MATRIX <X>. REMOVE TRAILING <C(2]>, DELIMIT VECTOR <X> BY <C[1]> 
56 * ABOX Y+CHARS sBOX X. ‘BOX' VECTOR <I> USING SEPARATOR AND FILL CHARACTER <CHARS> 
SEARCHING 
57 * BP 1+BP XY. SEARCH FOR ‘BREAK POINTS' BASED ON BEGINNING OF SEQUENCES IN <I> 
57 * FINDCOORDS 2+M FINDCOORDS S. FIND COORDINATES OF SEQUENCE <S> IN MATRIX <N> 
57 * FINDUT Y+d FINDUT B. FIND POSITION OF UNIQUE TRUNCATION <B> IN VECTOR <A> 
57 * FIRST Y+FIRST XY. FIRST OCCURRENCE OF ELEMENTS IN VECTOR OR MATRIX <X> 
58 * PICK Y+M PICK V. SELECT (PICK) ROWS FROM CHARACTER <M> USING NAME SPECIFICATION <¥> 
59 * PICKN Y+¥ PICKN N. PICK NUMBERS FROM <N> USING POSITIVE INTEGER SPECIFICATION <V> 
60 * RANGE Y+M RANGE S. PICK WAMES IN MATRIX <M> USING 'RANGE' SEARCH SPECIFICATION <S> 
® RIOTA Y+X RIOTA Y. IN MATRIX <X> WHERE IS BACH ROW OF <Y>? 
60 * SEARCH Y+M SEARCH S. BOOLEAN VECTOR WHERE SEARCH SEQUENCE <S> IS FOUND IN ROWS OF MATRIX <N> 
61 * SS Y+¥ SS S. SBARCH FOR ALL LOCATIONS OF SEQUENCE <S> IN VECTOR <¥> 
61 * SSH Y+TEIT SSN S. SEARCH FOR OCCURRENCES OF THE NAME <S> IN VECTOR <TEXT> 
62 * WILDCARD B+M WILDCARD S. PICK NAMES IN MATRIX <M> USING 'WILDCARD' SBARCH SPECIFICATION <S> 
63 * AROWMEN R+XY AROWMEN Y. R(I]=1 IF <X(I;]> IS 4 ROW IN <¥> (TRAILING BLANKS IGNORED) 


SORTING 


64 * GRADBUP Y+CS GRADEUP M. GRADEUP VECTOR FOR CHARACTER <N> BASED ON COLLATING SEQUENCE <CS> 
64% * GRADBUP1 Y+CS GRADEUP1 M. GRADBUP VECTOR FOR CHARACTER <M> BASED ON COLLATING SEQUENCE <CS> 


65 * SORT Y+C SORT M. SORT CHARACTER VECTOR OR MATRIX <M> ON COLUMNS <C> 
SUBSTITUTION 

66 * SR L+V¥ SRS. REPLACE 'OLD' SEQUENCE BY ‘WEW' IW <¥>. 

67 * SRN L+TEIT SRN S. REPLACE NANE BY ‘NEW' SEQUENCE IN <TEXT>. <S>=/NAME/NEW 


IREVIATIONS DEFINED IN <A> 


67 * VWREPL E+V VREPL A. REPLACE IN <V> SINGLE-CHARACTER 


TEIT-EDITING 


68 VED LINE+VED TEXT. VECTOR BDIT. EDIT VECTOR <TEXT> IN A SIMPLE FASHION 
68 VEDIT MN VEDIT WAMB. VECTOR EDIT. SCREEN EDIT VARIABLE <NAME> FROM <N(1]> TO <N[2]> 


69 FTINE T+FTIME TS. RETURN TIME OF DAY <TS> (ors FORMAT) IN FORMAT HE:MM:SS (AM/PM) 
69 * TIME Y+TIME. RETURN CURRENT TINE OF DAY IN FORMAT #H:MN:SS (AM/PM) 
isha 


70 * CPUCON Z+CPUCON. RETURNS ELAPSED CPU AND CONNECT TINE SINCE FUNCTION LAST REFERENCED 
70 * FCPUCON Z+FCPUCON X. FORMAT CPU AND CONNECT TIME INTEGERS <X> 

70 * TIMER Y+TIMER N. TIME <N> EXECUTIONS OF AN EXPRESSION FOR CPU AND CONNECT TIME 

m1 TIMETRACE INTERVAL TIMETRACE MSG. PRINT <NSG> AFTER <INTERVAL> MILLISECONDS OF CPU TIME 
71 * TIMING Z+TIMING. COVER FUNCTION TO CALL AND FORMAT <CPUCON> 


TRANSLATION 

72» ARABIC Y*ARABIC XY. RETURNS ARABIC (BASE 10) EQUIVALENT FOR CHARACTER RONAN NUMERAL <X> 
72» BASE RCS BASE TEXT. ENCODES <TEYT> TO AN INTEGER USING COLLATING SEQUENCE <CS> 

13 * DER Y<DFH X. RETURN DECINAL VALUES OF HEX NUMBERS <X> 

73 « FI ReFI A. FIX (TRANSLATE) TEIT INPUT <A> TO WOMERIC VECTOR 

73 * HED YoW BFD D. RETURN HEY EQUIVALENT OF INTEGERS <D> TO <N> BEX POSITIONS 

74 RONAN —«-Y*RONAN X. CHARACTER RONAN NUNERAL EQUIVALENT OF ARABIC (BASE 10) NUNBER <X> 
UNCATEGORIZED 

78 PRROF 04 PHROT N. PERMUTATION VECTOR <A> FOR PARTITIONED <N>-ROTATE OW PARTITIONS <A> 
7S UNION | Y+A UNION B. SET UNION <A> AND <B> LEAVING ORDER OF RESULT AS IW <A> 

vALDaTION 

76 * VI RevI As VALIDATE NUMERIC INPUT <A> ==~=~S=SO*=*=~C~=C“<‘<‘C‘<C;<C;‘<CS;~S;*‘<;<C;<CS;~S;*;W ee 


76 * VNANES Y*+VNANES V. VALIDATE NAME SPECIFICATIONS IN <V> 
7 vPIS Y+VPIS V. VALIDATE POSITIVE INTEGER SPECIFICATION <V> 


mn mae meme ee ee eee ewe eS USS 
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FUNCTION - CATEGORY CROSS-INDEX 
INDEX TO LISTINGS IN SECTION 5 


---FORMATTING 
~LIBRARY-UTILITY 
-COMPUTATION 
-TRANSLATION 
~RESHAPE 
-PROGRAMMING-TOOLS 
-FORMATTING 


5-16 * ADJUST-- 
5-26 AFTER-- 
5-2 * 
S=F2. x 
5-52 * 
S285 & 
5-17 * BALANCE- 
* 
* 
* 


S=72: BASE--- -TRANSLATION 

S=i1, BESIDE- CATENATION 

S=52 BOXF- RESHAPE 

S=52 BOX1 RESHAPE 

S=57 * JBPe== SEARCHING 

§-26 CATEGORY LIBRARY-UTILITY 
5-27 * CATOFEFUN- LIBRARY-UTILITY 
5-46 * CHANGE-- PROGRAMMING-TOOLS 
5-46 * CHECKSIZE-- PROGRAMMING-TOOLS 
5-44 * CHECKSUBROUTINE---PROGRAMMING 

5-5 * CJULIAN- DATE 

5-11 * CONDENSE DELETE-CHARACTERS 
S-11 * CONDENSE1- DELETE-CHARACTERS 
5-27 * CONTENTS-- LIBRARY-UTILITY 
5-28 CONTENTS1- LIBRARY-UTILITY 
5-70 * CPUCON- TIMING 

=5 * DATE- DATE 

<5 DATEF DATE 

=e * DATES DATE 

=6 * DAYS- DATE 

-14 * DDUP- DELETE-ELEMENTS 
-29 DELTAG- LIBRARY-UTILITY 
a7 & IBPR==== TRANSLATION 

-53. * DIMENSION- RESHAPE 

-17. * DISPLAYFUNCTION---FORMATTING 

-18 * DISPLAYFUNCTION\--FORMATTING 

=) -DATE 

er * DROUND- COMPUTATION 

Se DS=== ‘COMPUTATION 

<3) * DSTAT- COMPUTATION 

54 ® RESHAPE 

-S4 RESHAPE 

-7 * DATE 

29. LIBRARY-UTILITY 
ans: & EXPANSION 

“15 * EXPANSION 

-30 LIBRARY-UTILITY 
-70 * TIMING 

teil DATE 

-8 DATE 

“47 & PROGRAMMING-TOOLS 
are, TRANSLATION 

$-23 * GRAPHICS 

5-57 * SEARCHING 

5-57 * SEARCHING 

5-57 * SEARCHING 

5-18 * FORMATTING 

5-87 (& ‘PROGRAMMING-TOOLS 
5-69 TIME 

5-30 LIBRARY-UTILITY 
§-31 LIBRARY-UTILITY 
5-31 LIBRARY-UTILITY 
5-48 PROGRAMMING-TOOLS 


GRADEUP1 
GRAF! 


w 
' 
a 
= 

+ ee 


+e eRe 


Pe a ed 


ISODATE- 


ORDOEMDY 
ouT---- 
OUTCLOSE 


OUTOPEN- 
OUTPAGE- 
PATTERNG 


REFORMAT 
REPARRAY 
REPARRAY1- 
REPORT-- 


--DATE 

-FORMATTING 
-FORMATTING 
FORMATTING 

-DATE 
-PROGRAMMING-TOOLS 
-FORMATTING 
FORMATTING 
~-RESHAPE 


-PROGRAMMING-TOOLS 
-CATENATION 

-DATE 

-OUTPUT 

-OUTPUT 

-OUTPUT 

-OUTPUT 

-OUTPUT 

~GRAPHICS 

-DATE 

-SEARCHING 
~SEARCHING 
-UNCATEGORIZED 
OUTPUT 

-INPUT 
-LIBRARY-UTILITY 
-PROGRAMMING-TOOLS 
-PROGRAMMING-TOOLS 
~-SEARCHING 

- FORMATTING 


-COMPUTATION 
-TRANSLATION 
-PLOTTING 
-LIBRARY-UTILITY 

- SEARCHING 
-PROGRAMMING-TOOLS 


-PROGRAMMING-TOOLS 
~FORMATTING 
-FORMATTING 
-SUBSTITUTION 
-SUBSTITUTION 

~ SEARCHING 

~ SEARCHING 
-PLOTTING 
-PROGRAMMING-TOOLS 
-COMPUTATION 
-DELETE-ELEMENTS 
-COMPUTATION 


TEXT-EDITING 
PROGRAMMING 
-VALIDATION 


nam ee eS SS 


= 


S=76: 
5=77 
5-67 
5-51 
5-62 
5-24 
S=8% 
5-56 
S§=23 
5-22 
s-it 
5-12 
arte 
5-12 
$=13 
5-13 
5-484 
5-63 


* 


a ea 


-VALIDATION 
VALIDATION 
SUBSTITUTION 2 
PROGRAMMING-TOOLS 


DELETE-CHARACTERS 
DELETE-CHARACTERS 


ADLB -DELETE-CHARACTERS 
ADLC: -DELETE-CHARACTERS 
ADTB DELETE-CHARACTERS 
ADTC: DELETE-CHARACTERS 
arr===> ‘PROGRAMMING 


AROWMEM- SEARCHING 
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INDEX TO FUNCTION DOCUMENTATION IN SECTION 6 
CATEGORIES 


CATENATION 
COMPUTATION 
DATE 
DELETE-CHARACTERS 
DELETE-ELEMENTS 
EXPANSION 
FORMATTING 
GRAPHICS 
LIBRARY-OTILITY 
OUTPUT 

PLOTTING 
PROGRAMMING 
PROGRAMMING-TOOLS 
RESHAPE 
SEARCHING 
SORTING 
SUBSTITUTION 
TIME 

TIMING 

- TRANSLATION 
VALIDATION 


FUNCTION-CATEGORY CROSS-INDEX 
--- FORMATTING 


6-32 ADJUST----- 


-LIBRARY-UTILITY 
6-3 --COMPUTATION 
6-112 ---TRANSLATION 
6-79 - RESHAPE 
6-66 -PROGRAMMING-TOOLS 
6-33 
6-113 
6-1 
6-80 
6-87 
6-51 
6-67 . 
6-68 CHECKSIZE---------PROGRANMING-TOOLS 
6-63 - PROGRAMMING 
6-10 -DATE 
6-19 DELETE-CHARACTERS 
6-20 DELETE-CHARACTERS 
6-52 -LIBRARY-UTILITY 
-LIBRARY-UTILITY 
6-108 - -TIMING 
6-11 -DATE 
-DATE 
6-12 -DATE 
6-13 -DATE 
6-27 -DELETE-ELEMENTS 
LIBRARY-UTILITY 
6-114 TRANSLATION 
6-81 DIMENSION-- ~RESHAPE 


6-34 DISPLAYFUNCTION---FORMATTING 
6-35 DISPLAYFUNCTION1--FORMATTING 
-DATE 
-COMPUTATION 
-COMPUTATION 
-COMPUTATION 
---RESHAPE 
--RESHAPE 


6-4 DROUND-- 


6-5 DSTAT--- 
6-82 DUPARRAY---- 
DUPARRAY1--- 


6-14 -DATE 
6-53 EXAMPLE- LIBRARY-UTILITY 
6-30 EXPANDAF: EXPANSION 
6-31 EXPANDBE EXPANSION 
EXPLAIN- LIBRARY-UTILITY 
6-109 FCPUCON- TIMING 
FDATE- DATE 
FDMY- DATE 
6-69 FGL- PROGRAMMING-TOOLS 
G=225. uF i<-= TRANSLATION 
6-47 FIBSPIRAL GRAPHICS 
6-88 FINDCOORDS- SEARCHING 
6-89 FINDUT-- SEARCHING 
6-90 FIRST- SEARCHING 
6-36 FIXUPARRAY- FORMATTING 
6-70 FNLIST- PROGRAMMING-TOOLS 
FTIME-- TIME 
FUNCTION: LIBRARY-UTILITY 


6-54 FUNSINCAT 
6-55 GETTAG-- 
6-71 GLOBAL- 
6-101 GRADEUP- 
6-102 GRADEUP1 


LIBRARY-UTILITY 
LIBRARY-UTILITY 
‘PROGRAMMING-TOOLS 


6-59 GRAF! PLOTTING 
6-116 TRANSLATION 
, ‘PLOTTING 
DATE 
6-37 FORMATTING 
6-38 FORMATTING 
6-39 FORMATTING 
6-15 DATE 
6-72 -PROGRAMMING-TOOLS 
6-40 -FORMATTING 
6-41 ~FORMATTING 
6-83 RESHAPE 
6-17 DATE 
DATE 
6-73 -PROGRAMMING-TOOLS 
6-2 CATENATION 
6-18 DATE 
6-58 OUTPUT 
OUTPUT 
OUTPUT 
OUTPUT 
OUTPUT 
6-48 GRAPHICS 
DATE 
6-92 SEARCHING 
6-93 SEARCHING 
UNCATEGORIZED 
OUTPUT 
INPUT 
LIBRARY-UTILITY 
6-74 ‘PROGRAMMING-TOOLS 
6-75 ‘PROGRAMMING-TOOLS 
6-94 ‘SEARCHING 
6-42 FORMATTING 
6-84 REPARRAY- RESHAPE 
REPARRAY1 RESHAPE 
OUTPUT 
OUTPUT 
6-6 ‘COMPUTATION 
6-7 COMPUTATION 
6-117 TRANSLATION 
PLOTTING 
6-56 LIBRARY-UTILITY 
6-95 SEARCHING 


-PROGRAMMING-TOOLS 


6-60 
6-103 
6-77 
6-43 
6-44 
6-104 
6-105 
6-96 
6-97 
6-61 


6-8 
6-29 


6-107 
6-110 


6-111 
6-62 
6-49 
6-85 


6-118 
6-119 


6-106 
6-78 
6-98 
6-50 
6-64 
6-86 
6-45 
6-46 
6-21 
6-22 
6-23 
6-24 
6-25 
6-26 
6-65 
6-100 


-PROGRAMMING-TOOLS 
- FORMATTING 
-FORMATTING 
-SUBSTITUTION 
-SUBSTITUTION 

- SEARCHING 

~ SEARCHING 
-PLOTTING 
-PROGRAMMING-TOOLS 
COMPUTATION 
SUPPRESS DELETE-ELEMENTS 


THRU- COMPUTATION 
TIME- TIME 
TIMER-- TIMING 
TIMETRACE- TIMING 
TIMING- TIMING 


UNBOX-- RESHAPE 
UNION UNCATEGORIZED 
VED-- TEXT-EDITING 
VEDIT TEXIT-EDITING 
VEQ- PROGRAMMING 
Lee VALIDATION 


DELETE-CHARACTERS 
DELETE-CHARACTERS 
DELETE-CHARACTERS 
DELETE-CHARACTERS 
DELETE-CHARACTERS 
DELETE-CHARACTERS 
PROGRAMMING 

AROWMEM-~ 
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* BESIDE 


VY Y«A BESIDE B;ROW 
[1] ACATENATE ARRAY <A> TO ARRAY <B> (MAXINUM RAWK 2) ON LAST COORDINATE 
[2] #.K CATENATION 
(3] a.7 1985.5.22.11.48.5 
[4] a.v 1.1 / 244PR88 (VECTOR TREATED AS 1-COLUNN MATRIX, NOT 1-ROW) 


5] A+(24(pd), 1 1)94 

C6] Be(2+(pB), 1 1)pB 

[7] ROW+T/ 1.0 1 0 /(pd).pB_ 

ts] Y+( (ROW, 1¢pd) +4), (ROW, 1¢pB) +B 
v 

* ON 


v Y+a ON B;COL;0I0 
[1] ACATENATE ARRAY <d> TO ARRAY <B> (MAXIMUM RANK 2) ON FIRST COORDINATE 
(2] a.K CATENATION 
(3] a. 1985.6.17.11.22.46 
(¥] NOTE: (0 1p'*),[1]2 1p'é' SAME AS (0 1p'*) OW 2 ip'é’ 
[5] aWOTE: '',[1]1 Op'é' SAME AS ‘*' OW 1 Op'a' 


(6) Or0+1 

07] 4+(=2+ 11 ,pd)pA 

(8) B+(~2+ 1 1 .pB)pB 

(9] COL+f[/ 010 1 /( pd), 98 


(10) Yo(((1tpd) COL) tA) CA] ((1tpB) ,COL)+B 
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* AMORTIZE 


VY -Y*AMORTIZE NV33AMORTIZED; DEBT ; 1; INTEREST ;M;MONTHS; PAYMENT ; RATE ; 010 
[1] AMORTIZATION SCHEDULE BASED ON <NV3> = DEBT, RATE, MONTHS 
[2] a.K COMPUTATION 
(3] a.T 1985.8.8.16.46.11 
[4] SOURCE: ADAPTED FROM THE HANDBOOK OF TECHNIQUES (IBM) 
[5] awv3(1] DEBT IN TOTAL UNITS (E.G. DOLLARS) 
[6] anv3(2] RATE AS YEARLY INTEREST EXPRESSED AS FRACTION 
{7] A E.G. 10.5 PER CENT IS .15 
[8] anv3(3] TIME PERIOD IN MONTHS 
9] a<Y> IS 5 COLUMN MATRIX: 
J a(1)PERIOD (2)CURRENT DEBT (3)MONTHLY PAYMENT (4) AMORTIZED (5)DEBT 
(11) Oro+1 
] DEBT+NV3(1] 
(13) RATE+NV3(2]412 
(14) MONT HS+NV3(3] 
(15] M+ (MONTHS ,5)pI+0 
(16) PAYMENT+DEBTXRATE+1-+(1+RATE) *MONTES 
(17] £10:+(DEBT<0)/END 
(18) I+I+1 
(19) AMORTIZED+PAYMENT -INTEREST+DEBTXRATE 
[20] MUI; ]+I, DEBT , PAYMENT , AMORTIZED, INTEREST 
(21) DEBT+DEBT-AMORTIZED 
{22] +210 
(23] END: 
(24) Y+M 
v 


* DROUND 


v R+U DROUND V;E;N;0CT;0I0 
{1] aDISTRIBUTIVE ROUNDING OF A VECTOR <V> TO ARBITRARY SCALAR UNIT <U> 
(2] 9.x COMPUTATION 


(3) Ocr+0r0+0 
(4) B+1|V+ve0 
C5] N+(L0.5++/V)-+/LV 
(6) ReUx(LV)+N> AVE 
v 
Ds 
vy Z+Ds Xx 


[1] aSET OF DESCRIPTIVE STATISTICS FOR DATA <X> 
(2] a.k COMPUTATION 
(3] a.W K.W.SMILLIE 


C4) Z+10p0 

(s] Z2C1J)+px+x[ax) 

(6) Z(2]+(+/x)42(1) 

(7) Z03]+(+/(X-Z02])*2)#Z(1]-1 
(8) Z(04J+Z(3]*0.5 

C9] 2Z(5)+Z(4J#Z(1]*0.5 


[10] z(6]+(+/1x-202])+Z01] 

C11] 2073+0.5x+/X0 (1201342) ,1+12(1142) 
(12) z(8 9]+x{z(1),1] 

(131 z(10]+-/2(8 9] 
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* DSTAT 


v DSTAT X;Z 
[1] LABELLED SET OF DESCRIPTIVE STATISTICS FOR DATA <X> 
[2] a.K COMPUTATION 


(3) 'DSTAT' CHECKSUBROUTINE 'DS* 
(4) Z+DS X 

(5s) "SAMPLE SIZE. oocee *s¥2Z01) 
(6) "MEAN... 4.0. cocee ',¥ZL2]) 
(7) "VARIANCE. ..seeeeceees 's¥2ZL3) 
(8) ‘STANDARD DEVIATION... ',¥2(4] 
C9] ‘STANDARD ERROR....... ',¥Z(5] 
(10) "MEAN DEVIATION... - ',¥206) 
(11) "MEDIAN... . ',9207) 
(12) "MAXIMUM - ',¥Z208) 
(13) ‘MINIMUM ~ ',¥Z09) 
(14) ‘RANGE... - ',¥2[10] 


* RND 


v -R+W RND X 
[1] ROUND NUMBER <X> TO <N> DECIMAL PLACES 
[2] #.X COMPUTATION 
(3) Re(108-N)xLO.5+Xx108N 
v 


* RNDE 


VY _R+RNDE X;T 

[1] ROUND <X> TO NEAREST INTEGER (.S CASE GOBS TO NEAREST EVEN INTEGER) 
(2] .X COMPUTATION 

(3) T+" 1x 21k 

(4) ReTxlO.5+XxT 


* SUBTOTAL 


v RP SUBTOTAL M;QI0 
[1] aCOMPUTE AND MERGE SUBTOTALS OF <M> DETERMINED BY POSITIONS <P> 
{2] a.£ (3 2p1 2 3.4 1 4%) SUBTOTAL 4 39112 
(3] a.X COMPUTATION 
C4] a.T 1988.4.7.2.17.2 
[5] a.V¥ 1.0 JAN82 
[6] a<P> IS Nx2 MATRIX 
[7] a N IS NUMBER OF SUBTOTAL ROWS 
[8]  Pl31] IS SUBTOTAL ROW START POSITIONS, P{;2] IS END POSITIONS 


Oro+1 
(10) Re(M,C1I-/C2)(+\C1] 0,01] M)(OP+(pP)p O 1 31) LA(11tpM),PL32]3) 
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THRU 


v s-ReF THRU TB;0I0;B 
[1] aAGENERATES AN EQUAL-INTERVAL VECTOR BETWEEN <F> AND <1*+TB> = 
(2] a.£ 11.5 22.53 3.5 4 4%.5 5 = 1 THRU S .S 
[3] a. COMPUTATION 
[4] #.¥ 1.0 / O6MAY8S 
(S] aTHB INTERVAL IS <1+TB> 


(6) Or0+0 
(7) B+|7BC1) 
C8] Re(TBCOJ-F)+B 


C9] ReF+(xR)xBx.14+L1R 
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* CJULIAN 


v Z+CJULIAN JS3C3D3I3K3M3S31 
[1] aCONVERT JULIAN DAY NUMBER <JS> TO MONTH ,DAY ,YEAR,STYLE 
(2] a.K DATE 
[3] a.7 1988.5.12.0.22.26 
C4] a.¥ 1.0 / 17MAY77 
[5] a<JS> 
(6] a SCALAR OR VECTOR OF JULIAN DATES 
(7] a AN Nx2 ARRAY, WHERE JS(31)=JULIAN DATES, JS(;2)=STYLES 
(8] SEE DOCUMENTATION. FOR MORE DETAILS ON DATES AND STYLES 
{9] JS+(2t(pJS), 1 1) pds 


(10) g+oS(;070) 
(11) S+(J>2423434)V(J>2299171) 4 (JS, 2361221<F) (307041) 
(12) J+J-1684595 
(13) C+LJ#36524.25 
(14) Jed+ ((~S) x (2-C) +1 C#4)-1 36524. 25xC 
C15] Yel (J+1)4365.25025 
(16) J+J+31-L365.25%Y 
(17) D+J-130.5875xM+LJ#30.5875 
(18) MeM+2-12xK+L M411 
(19) Z+M,D, (K+¥+100xC-1) ,(O20+0.5] S 
v 
* DATE 


v R+DATE;8;MO;XD;QI0 

(1] aRETURN TODAY'S DATE IN FORMAT: MONTHNAME DD, YYYY 

(2] a.K DATE 

(3) a.T 1986.11.19.16.33.46 
C4) Or0+1 
[5] MO«'/* ABOX 

* JANUARY / FEBRUARY /MARCH/ APRIL /MAY / JUNE/JULY / AUGUST / SEPTEMBER/ OCTOBER/NOVEMBER 
/DECEMBER' 


(6) xD+OTS{1 2 3] 

{7] B+ ,MO[XD(2];] 

(8) B+(Bt' ')/B 

{9] ReB,' ',(¥XD(3]),", ',¥xXD(1] 
v 
DATEF 


v Y+DATBF;B;M0;XD;010 
(1] RETURN TODAY'S DATE IN FRENCH 
[2] n.k DATE 
(3] a.7 1986.11.19.16.52.25 
[4] #.v 1.0 / 11N0v81 


{5]  a<Y> LOOKS LIKE --- NOVEMBRE 19, 1986 

(6) Oro+1 

{7] MO«'* ABOX 'JANVIER FEVRIER MARS AVRIL MAI JUIN JUILLET AOUT 
SEPTEMBRE OCTOBRE NOVEMBRE DECEMBRE' 

(8) xpe3+0Ts 

C9] B+,MO[XD[2];] 


[10] B+(Bt* ')/B 
(11) Y+B,' ',(¥XD(3]),", ',¥XD(1i] 
3 v - 


PAGE 5-6 DATE 


* DATES 


v Y+DATES N3D3M;P;R;Y;010 
(1] aRETURN MONTH,DAY,YEAR DATE EQUIVALENTS OF GREGORIAN DAY COUNT <N> 
(2] aE 5 13 1988 = ,DATES 725870 
[3] a.K DATE 
C4] a. 1988.5.12.23.23.55 
(5) a.V 1.0 / 17MAY77 
[6] aINVERSE OF <DAYS>, ASSUMES CONTINUAL USE OF GREGORIAN CALENDAR 


(7) Oro+1 
C8] D+,N 
C9] Y¥+(L(364+D)4365.2425)¢.+ 0 1 


[10] M+(0,[0.1] 4 100 400)TY 
(11) P+=/0=M[2333] 

(12] M+(365xY-1)+-/M([1333],(1] P 
(13] R+D>M( 32] 

C14] D+D-, 0 1 +ROM 

(15) P+(ROP)[31] 

(16) D+30+D+(D>59+P)x2-P 

(17) M+LD#30.56 

(18) D+D-130.56%M = 

(19) Y¥+((pN),3)pM,D, 0 “1 +ROY 


* DAYS 


v -Y*DAYS D3W3P;010 
(1] RETURN GREGORIAN DAY COUNT OF <D> = MONTH,DAY,YEAR 
[2] a. 725870 = DAYS 5 13 1988 
(3] a. DATE 
(4) a.7 1988.5.12.23-.22.32 
(SJ a.V 1.0 / 17MAY77 
[6] AASSUMES CONTINUAL USE OF GREGORIAN CALENDAR 
[7] Oro+1 
(8) D+(~2t 11 ,pD)pD 
(9]_ +(3#71+pD)/ERR1 
C10] N+(0,[0.1] % 100 400)TDL[;3] 
(11) P+=/0=N(233 
(12) N+(365xD[;3]-1)+-/WCL1331,[1] P 
(13) YeN+D[32]+(L30.56xD[31])-30+(D[31]23)x2-P 
(14) +0 
(15) BRR1: 
(16) O+'DAYS LENGTH ERROR’ 
(17) (+'LAST COORDINATE OF RIGHT ARGUMENT NOT EQUAL TO 3.' 
(18) +0,Dex 'y’ 
v 
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DMY 


Vv -Y+DMY;D;M;MON;T;Y;0I0 
(1] RETURN TODAY'S DATE IN FORMAT DD MMM YY 
[2] a.K DATE 
[3] a.N RML 
C4] a.T 1985.9.22.12.45.4 
[5] a.V 1.0 / 18JUN82 


(6] Ofo+1 

(7] T+OTs 

(8] ar{i 2 3] = YYYY MM DD 

(3) MON+ 12 3 p'JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC" 


(10) Y+"1+ 100 100 tri] 
(11) Y¥+(2 0 ¥7(3])," ',MOW[T[2];],' ', 2 0 ¥Y 
v 


* EASTER 


v Z+EASTER YS;C3EPACT;G3N3X3Y3S 
ACOMPUTE EASTER FOR YEAR <YS(1J>, OPTIONAL STYLE <YS(2]> 


(1) 

(2] a.x DATE 

(3] YS MAY ALSO BE A VECTOR OF YEARS OR AN ARRAY OF YEARS AND STYLES. 
C4] YS+(2+(pYS), 1 1)6YS 

(5) ¥+rs(;070] 

6] S+(Y>1922)v(¥>1583)A(¥S,1752<Y)(;070+1) 

(7]  +0x1pZ+(33>L/Y)/'BASTER WASN''T CELEBRATED THAT EARLY.' 

8] X+Sx2-L0.75xC+1+L0.01xY 

9] EPACT+30| 20+(Sx10+L0.32xC-15)+(11xG+1+191Y) +X 

(10] Ne44-BPACT+Sx ( EPACT=24)V (BPACT=25)AG>11 

(11) NeN+30xN<21 

(12) NeN+7-7|¥+7|X+L1.25xY 

[13] +0x.1#1tpZ+w 

(14) Z+"BASTER ON ',((6xx30.5-N)+'MARCH APRIL '),(¥1+31| 1+N),', ',¥itY 


v 


FDATE 


Vv -Y+FDATE 1;B;M0;XD;0I0 
(1] RETURN DATE <T> = YYYY MM DD IN FORMAT: MONTHNAME DD, YYYY 
[2] a.z ‘NOVEMBER 19, 1986' 4.= FDATE 1986 11 19 
(3] a.K DATE 
C4] a. 1986.11.19.16.41.34 
(5] wore: T[1 2 3] = YYYY MM DD (SAME SEQUENCE AS 3+0TS) 
(6) Or0+1 
(7] MO+'/' ABOX 
* JANUARY / FEBRUARY /MARCH/APRIL/MAY / JUNE/JULY / AUGUST / SEPTEMBER/ OCTOBER/NOVEMBER 
/DECEMBER' 
C8] ID¢3+T 
9] B+, MO[XD[2]3] 
(10) B+(Be" ')/B 
(11) Y+B,' ',(¥XD(3]),", *,¥XD(1] 
a 
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FDMY 


v Y+FDMY 7;D;M;MON;Y;0I0 
[1] RETURN DATE <T> = YYYY MM DD IN FORMAT DD MMM YY 
[2] #.K DATE 
(3] A.W RML 
(4] 9.7 1985.9.22.12.41.57 
[5] a.v 1.0 / 310CT83 
[6] NOTE: T[1 2 3] = YYYY MM DD (SAME SEQUENCE AS 3+QTS) 


(7] Or0+1 
8] MON+ 12 3 p'JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC* 
C9] Y+"1t+ 100 100 rr[i] 
(10) Y+(2 0 w7(3]),* *,MOW[T[2];]," ', 2 0 ¥Y 
v 
ISODATE 


Y= -ReISODATE;T;010 
[1] RETURN THE CURRENT DATE IN ISO FORMAT YYYY-MM-DD (LEADING ZEROS) 
(2] a. DATE 
[3] #.? 1985.9.22.13.0.36 


C4) Oro+1 
[5] T+OTs 
(6) R+(4 0 ¥T(1]),'-",(2 0 ¥7[2]),'-", 2 0 w7L3] 
(7) RU(R=" ')/.pR)+'0" 
v 
* JULIAN 


VY -Z+JULIAN DATE3C;D37F3M3S;3Y 
(1] RETURN JULIAN DAY NUMBER OF <DATE> = MONTH,DAY,YEAR 
(2] #.£ 2443281 2447295 = JULIAN 2 3p5 17 1977 5 13 1988 
[3] #.k DATE 
(4] a.? 1988.5.12.0.22.26 
(SJ .¥ 1.0 / 17MAY77 
6] a<DATE> 
(7] a 3-BLEMENT VECTOR 
(8] ® Nx3 MATRIX (OR Nx4 MATRIX WHERE DATE(;0I0+3)] IS OPTIONAL STYLE) 


(9) DATE+("2+1, pDATE) pDATE 
(10 M+DATEC;070] 

(11 D+DATEL31+0I0) 

(12 Y¥+DATE(;2+0I0) 


] 
: 
] Z+1001Y,(010] M,({Or0-0.5] D 
(14) S+(Z>19230114)V¥(Z>15821025) a (DATE, Z>17520902)(33+0I0) 
] JF+22M 
] C+(2x~S)+0.75xSxL0.01xI-JF 

] 2+314+D+(1367xdF+(M-2)412)-[C-L365.25*4712+Y-JF 


DATE PAGE 5-9 


* MDYOFORD 


v - R*MDYOFORD X;D;DAY;LEAP;M;MD;MONTH;N;YEAR30I0 
[1] ARETURN THE MONTH,DAY,YEAR EQUIVALENT OF ORDINAL DATE <X> 
[2] a.£ 5 12 1988 = ,MDYOFORD 88133 
(3] a.K DATE 
(4] a.7 1988.5.11.23.58.2 
5] .¥ 1.1 / CORRECTED AND ENHANCED VERSION OF <JUL2YMD> 
[6] FOR MORE NOTES SEE DOCUMENTATION 


(7) Oro+1 

(3) MD+ 0 31 59 90 120 151 181 212 243 273 304 334 
(9] NepX+,X 

[10] D+ 1000 1000 TX 

(11) YEAR+1900+D(1;] 

(12] aCOMPUTE LEAP YEAR FLAG FOR EACH X(I] 

(13) LEAP+(0=400/YEAR)V(0=4| YEAR) 4(0#100/ YEAR) 
[14] m4DD 1 TO MONTHS AFTER FEBRUARY IF LEAP YEAR 
C15] M+MD([1],MD[2],LEAP*.+MD[2+112) 

(16] aMONTH OF EACH X(T] 

(17) MONT H++/(&(12,N)pD[23]) > 

(18) a ----- MONTH DAY OF EACH ELEMENT IN D(23] 


[19] aMD(MONTH] IS NUMBER OF DAYS IN YBAR UP TO BEGINNING OF MONTH <MONTH>. 
[20] aADJUST <DAY> (DAYS IN THIS MONTH) IF D(2;] (ORDINAL DATE) IS IN MARCH 
[21] nOR GREATER IN A LEAP YEAR. d 
[22] DAY+D(2; ]-MD[MONTH ]+LEAPXMONTH23 

[23] wRETURN YEAR,MONTH,DAY AS N+3 MATRIX 

[24] R+Q(3,N) pMONTH DAY, YEAR 


MOONPHASE 


¥ -R+MOONPHASE MDYS 
[1] COMPUTE MOONPHASE <R> OF DATE <MDYS>=MONTH,DAY ,YEAR,STYLE 
[2] #.K DATE 
[3] a<R>=0.00 IS NEW MOON, 0.75 IS LAST QUARTER, BTC. 
(4) "MOONPHASE' CHECKSUBROUTINE 'JULIAN' 
(s] R+2¥11429.530594 9+JULIAN MDYS 
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* ORDOFMDY 


¥  Y*ORDOFMDY D;DAY;DAYS;LEAP;MD;MONTH ;YEAR;(10 
[1] RETURN THE ORDINAL DATE EQUIVALENT OF <D> = MONTH,DAY,YEAR 
[2] a.£ 88133 = ORDOFMDY 5 12 1988 
[3] a.K DATE 
[4] a.7 1988.5.12.2.10.25 
[5] a.v 1.0 
(6] ANOTE: ORDINAL DATE 85036 MEANS 36TH DAY OF 1985 
(7) Oro+1 
(8] aLEAP YEARS --- 
[9] a  NON-CENTURY YEARS: EVENLY DIVISIBLE BY 4 
{10] a CENTURY YEARS: EVENLY DIVISIBLE BY 400 
ay aIN OTHER WORDS -- EVERY 4 YEARS, EXCEPT WE SKIP EVERY 3 CENTURY YEARS 
12 Oro+1 
(13] mMD[I]+1 IS FIRST ORDINAL DAY OF MONTA(I) 
(14) MD+_0 31 59 90 120 151 181 212 243 273 304 334 
(15) D+(~2t+ 1 1 ,pD)pD 
[16] +(3#71tpD)/ERR1 
(17) MONTH+D(31] 
(18) DAY+D(32] 
(19) YEAR+D([33] 
(20] LEAP+(0=4001YEAR)V(0=4|YEAR)A(0#1001 YEAR) 
[21] nADD 1 IF MONTH(I] IS IN MARCH OR GREATER AND THE YEAR IS A LEAP YEAR 
(22] * DAYS+DAY+MD(MONTH)+LEAPxMONTA23 
(23) ¥+10001(100/YBAR),(O0.5] DAYS 
C24] +0 
(25] BRR1: 
(26] O+'ORDOFMDY LENGTH ERROR‘ 
(27) (l+'LAST COORDINATE OF RIGHT ARGUMENT NOT EQUAL TO 3° 
(28] +0,08x 'y’ 
= 


PAYDAY 


vs R*PAYDAY MDY 
(1]  a<Y> IS THE CLOSEST .PRIDAY ON OR BEFORE <MDY> 
(2) 9.K DATE 
(3) "PAYDAY' CHECKSUBROUTINE ‘JULIAN CJULIAN' 
C4) Re (JULIAN MDY)~"1+17 
(s] ReCJULIAN RU(711+R)15] 
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* CONDENSE 


v Y+*D CONDENSE V;B 
[1] REMOVE REDUNDANT BLANKS FROM <V>, AND BLANKS AROUND CHARACTERS <D> 
[2] a.K DELETE-CHARACTERS ‘ 
[3] a.V 1.1 
(4] av IS VECTOR (RANK 1) ONLY 
[5] REMOVE LEADING, TRAILING, AND MULTIPLE INTERNAL BLANKS 
(6] Y+aDB,V 
[7] REMOVE BLANKS AROUND DELIMITERS IN <D> 
{8] #£.G. IF <D> =<,>, BLANKS ARE REMOVED AROUND COMMAS IN ‘A , B , D* 
(9) B+YeD nf 
(10) Ye(~(Y=" *)A(10B)¥"10B)/¥ 


* CONDENSE1 


v Y+D CONDENSE1 X3;B 
[1] REMOVE REDUNDANT BLANKS FROM <X>, AND BLANKS AROUND CHARACTERS <D> 
(2] a.K DELETE-CHARACTERS 

(3] a.V 1.1 

{4] aNOTE: SAME AS CONDENSE, BUT DOES NOT REMOVE CHARACTERS WITHIN QUOTES 
(5] REMOVE LEADING, TRAILING, MULTIPLE INTERNAL BLANKS, BUT NOT IN QUOTES 
(6) Be' '#Xe' ',2 

£7] NOTE: #\ IS THE SAME AS 2\+\ 

(8) Yo1s((#\''' =X) VBV10B)/X 

[9] «REMOVE BLANKS AROUND DELIMITERS, NOT IN QUOTES 

[10] BeYeD 

(11) Ye((#\'t*'sy)v~(y=" ")A(10B)V"10B)/Y 

v 


* ADB 


v Y+aDB V;B 
[1] DELETE BLANKS (LEADING, TRAILING AND MULTIPLE) FROM V (RANK 0 - 2) 
(2] a.K DELETE-CHARACTERS 
(3] a.V 1.1 
C4] +((0 1 2 =ppW),1)/L1,L1,L2,ERR1 


(5) £1: 
C6] Bet '#Ve+' '47 
(7) Y*1+(BV10B)/V 
{8] +0 
(9) L2: 


(10) Bev/* '2¥e" '47 

(11) Y+ 0 1 +(BV10B)/V 

[12] +0 

(13] BRRi:0+'aDB RANK ERROR 
v 
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* aDc 


v Y«C ADC V;B 
[1] aDELETE CHARACTERS (LEADING, TRAILING AND MULTIPLE) FROM V (RANK 0 - 2) 
(2] a.K DELETE-CHARACTERS 
(3] a.V 1.1 
[4] aNOTE: SAME ALGORTIHM AS ADB (DELETE BLANKS) 


Cs] C#(10)p1te 

6] +((0 1 2 =ppV),1)/L1,£1,L2,ERR1 
(7] Li: 

(8) B+C#V+C,V 

C9] Y¥+1+(BV10B)/V 

[10] +0 

(11) £2: 


(12) Bev /C#V+C,V 
(13) Y« 0 1 +(BV10B)/¥ 


(15] BRR1:0+'aDC RANK ERROR* 
v 


* ADLB 


v  Y+aDLB V 
(1] DELETE LEADING BLANKS FROM V (RANK 0 - 2) 
[2] #.K DELETE-CHARACTERS 
(3) a.v 1.1 
C4] +((O 1.2 =ppV),1)/L1,L1,L2,ERR1 
[5] Lasye("i+(ve* ")11)47 
(6] +0 
C7] L2:Y+(v\véve" ")/7 
{8] +0 
(9] BRR1:0+'sDLB RANK ERROR' 
¥ 


* ADLC 
v Y+C aDLC V 


(1] DELETE LEADING CHARACTER C FROM V (RANK 0 - 2) 
[2] a.K DELETE-CHARACTERS 

(3] a.V 1.1 

(4] NOTE: SAME CODE AS ADLB (DELETE LEADING BLANKS) 
(s] C+1te 

[6] +((O 1_2 =ppv),1)/L1,L1,£2,BRR1 

(7) LisYe("1+(Vec)i1) +7 

(8] +0 

(9] L2:Y¥+(v\vsV#C)/¥ 

[10] +0 

(11] BRR1:0+'sDLC RANK ERROR‘ 


v 
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* ADTB 


v  =Y+aDTB V 
[1] aDELETE TRAILING BLANKS FROM <V> (RANK 0 - 2) 
[2] a.X DELETE-CHARACTERS 
(3] av 1.1 
[4] +((O 1 2 =ppV),1)/L1,£1,£2,ERR1 
C5] LisY+(1-(Ov#e" ")i1)+7 


+0 
[7] L2:Y+(vsov\ove' ')/V 


+0 
(9] 8RR1:0+'AaDTB RANK ERROR‘ 
v 


* ADTC 


v Yc aDTC V 

(1] DELETE TRAILING CHARACTER C FROM V (RANK 0 - 2) 
(2] a. DELBTE-CHARACTERS 

(3) n.v 1.1 

(4] aNOTE: SAME CODE AS DTB (DELETE TRAILING BLANKS) 
(s] C+ite 

(6] +((O 1 2 =ppy),1)/L1,£1,L2,ERR1 

C7] LisY+(1-(OveC)11)47 


70 

[9] L2:Y+(v/Ov\ vec) /V 
70 

C11] BRR1;0+'aDTC RAWK BRROR* 
v 
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* 


(2] 


DbDUP 


v Y«DDUP X 
ADELETE DUPLICATE ELEMENTS FROM VECTOR OR MATRIX <X> 
a.K DELETE-ELEMENTS 

"DDUP' CHECKSUBROUTINE 'FIRST' 

Y«(FIRST X)/X 


SUPPRESS 


Vv P*D SUPPRESS V;B;LEVEL;MASK;SHAPE;X;0I0 
ASUPPRESS CHARACTERS IN MATRIX <V> DELIMITED BY DELIMITERS <D> 
a.K DELETE-ELEMENTS 
a.T 1988.4.18.20.55.29 
a D(1] = DL[2] NO NESTING OF DELIMITERS IS ALLOWED 
a Dli] # D(2] NESTING LEVEL IS ARBITRARILY SET TO 1 
Oro+1 
SHAPE+pV 
v+("2t 1 1 ,pV) pv 

AENSURE THAT <D> HAS EXACTLY 2 ELEMENTS 
D+2pD 

+(0 1 ==/D)/DIFFERENT ,SAME 

DIFFERENT: 

ASET LEVEL OF NESTING ARBITRARILY FOR THIS PART 
LEVEL+1 . , 
X++\(V=D[1])- 0 “1 40,7=D[2] 
MASK+LEVELSX 

+110 

SANE: 
B+D(1]=V 
MASK+Bz 0 1 +#\1,B 

+L10 

£10: 
P+MASKO(1] V,[0.5] * ' 
P+SHAPEpP(133) 


BIPANSION 


a *  BXPANDAF 


Vv -R*BXPANDAF W 
[1] a<R> IS EXPANSION VECTOR TO INSERT <W{I]pO0> AFTER THE I-TH POSITION 
a (2] a.£ 10200300 0 = (BXPANDAF 1 23 )\1 23 
(3] #.X EXPANSION 
C4] n.7T 1988.4.5.18.44.4 
[5] #.¥ 1.0 / 12MAY88 


- C6] ‘BXPANDAF' CHECKSUBROUTINE ‘BXPANDBE' 
(7) Re 1+EXPANDBE 0,W 
v 
*  BXPANDBE 


Vv -R+BXPANDBE W 
[1] a<R> IS EXPANSION VECTOR TO INSERT <W(I]p0> BEFORE THE I-TH POSITION 
(2] 9.8 0100200 0 3 = (BXPANDBE 1 2 3 )\1 2 3 
- (3] n.K EXPANSION 
C8] n.7T 1988.%.5.18.494.4 
[5] #.¥ 1.0 / 12M4Y88 
(6) Re (ipW)++\W 
_ (7) Re(1 14R+~HI0) eR 
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* ADJUST 


v Y+X ADJUST D;EX;1;LINE;LMRG;PW;W 3010 
[1] nADJUST EACH ROW OF MATRIX <D> ACCORDING TO PARAMETERS <X> 
[2] a. FORMATTING 
(3] a.N RML 
[4] a.T 1988.4.6.0.32.40 
[5] #.v¥ 1.0 / SJAN82 
[6] #.V 2.0 / SAPR88 / CHANGE ORDER OF <X>, USE SUBROUTINES 
{7] a X(1] WIDTH OF RESULT IN COLUMNS 
[8] a X{2] WIDTH OF LEFT MARGIN (I.E.. NUMBER OF BLAWK COLUMNS) 
te). a *tal NUMBER OF BLANK LINES TO INSERT BETWEEN EACH ROW 

jIO+1 

J ‘ADJUST’ CHECKSUBROUTINE ‘'ADTB SPLIT* 
(12] +(2<ppD)/ERR1 

] D+("2+ 1 1 ,pD)pD 
(14) I+3td 
(15] Pw+r(1] 
(16) LMRG+X(2] 
(17] EX+X(3] 
[18] wRESULT WILL HAVE W COLUMNS 
(19) W+PW-LMRG 
[20] +(W<1)/ERR2 
(21) ¥+(0,W)p'* 
(22) I+0 
[23] Lis+((1tpD)<I+I+1)/END 
[24] aREMOVE BLANKS AT END OF LINE 
(25) LINE+aDTB D(I3) 
[26] aI¥ LINE IS EMPTY, TREAT AS LINE (WITH ONE BLANK) 
(27) Y+Y,(1] W SPLIT LINE,(O=pLINE)p' ' 
(28) +21 
[29] END: 
[30] mPREPEND LMRG BLANK COLUMNS 
(31) Y+(((1+pY),LMRG)p* '),T 
{32] nINSERT EX BLANK LINES BETWEEN EACH ROW (EXCEPT AT BOTTOM) 
[33] Y+(((-BX)+(1tpY)x1+EX)p1,BXp0)*T 
[34] +0 
(35) ERR1i: 
036] O+'ADJUST RANK ERROR‘ 
(37] («RIGHT ARGUMENT HAS RANK = ',(¥ppD),' WHICH GREATER THAN 2° 
(38) +0,08x 'Y' 
(39] ERR2: 
(40) O+'ADJUST DOMAIN ERROR 
[41] O+'rexT WIDTH = ',(¥W),' NOT GREATER THAN 0° 
(42) +0,08x 'Y' 

v 


paiieteheii apa 


FORMATTING 


* “BALANCE 


v Y+BALANCE N;K3KM;L3M;MA;MB;17;XT;010 
[1] aDISPLAY BALANCE (NESTING LEVELS) IN TEXT VECTOR <N> 
[2] 9.K FORMATTING . 
C3] a.T 1988.4.18.21.55.23 
C4] a.V 1.0 / 18APR88 


Cs] Oro+o 

(6) Ne(-(" '#ON) 11) 0 

(7) L+Nn 

(8) Keb=t''' 

(9) LU(#\K)/rpLi+" * 

(10] a 

C11] T+Le'(C* 

(12] Me(+\T)-+\Le")]" 

(13) XIT+K\(+/K)p 1 “1 

(14) MA+((-1=X7)+4\X7)+M-7 

(15) MB+MA-L/MA 

C16] a 

(17) KN+[ /MB 

(18) N+(-MB)ON,COJ(KM,pN)p'.* _ 
(19) Y+(pW)p((11+KM)*.>MB)ON,[-0.5] * ' 


* DISPLAYFUNCTION 


v Z+DISPLAYFUNCTION A;B;N;QI0 
(1] aDISPLAY OF CANOWICAL MATRIX <A> 
(2) a.K FORMATTING 
C3] a.T 1988.4.%.20.32.54 
C4] n.v 1.1 


(5s) Oro+1 

C6] Z+ 0 0 p'? 

C7] d+("24 11 ,pA)pa 
[8] +(0«pd)/0 

C9] Bev /Zea=":! 


(10) Be( ALi ]="a*)VB\(+/V\B/Z)>+/V\"'''=BPA 

(11) N+" 1+pB 

(12) Z+Nt((WL9)p2),(OF90LN-9)p1 

(13) Z+((" *,01] '£',20(3 0 ¥(N,1)p.¥),"]"),BO" *,4),[1] * * 
(14) ZC1,N+2;5]+'v" 
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* DISPLAYFUNCTION1 


v Z+E DISPLAYFUNCTION1 A;B;N;0I0 
[1] aDISPLAY OF CANONICAL MATRIX <A> USING EXDENT <E> 
(2] a.K FORMATTING 
(3] a.7T 1988.5.13.1.20.11 
C4] a.vV 1.0 / 13MAY88 


[5] Oro+1 

(6) Z+ 0 0 p** 

[7] +(0€pA)/0 

(8) As( 2+ 1:1 ,pAdps 
C9] E+E, (*/pE)+3 


[10] Bev/Z+A=':' 

[11] aNOTE CHANGE IN NEXT LINE COMPARED WITH <DISPLAYFUNCTION> 

(12) B+(AL31Je'a>" )VB\(+/V\B/Z)>+/V\''''=BtA 

(13) N+ 1+pB 

(14) Z+Nt ((NL9)p2), (OF 90LN-9)p1 

[15] aNOTE CHANGE IN NEXT LINE COMPARED WITH <DISPLAYFUNCTION> 

(16) Z<((" "4 01] *£',20(3 0 ¥(N,1)piW),°3"), (BxB)O(((1tpd),B)p* '),4),01) 
wt 


(17) ‘ZL1,N+235]+'V" 
v 


* FIXUPARRAY 


Vv -Y*FIXUPARRAY DATA;QIO 
(1] RETURN CHARACTER MATRIX FROM ARRAY <DATA> 
[2] #.K FORMATTING 
(3] a. RML 
[4] v.T 1988.4.5.14.6.8 
[5] #.v¥ 1.0 / 23MAY85 
[6] #.¥ 1.1 / O¥APR88 / REMOVE TRAILING BLANK ROW 


(7] Oro+1 
(8] "FIXUPARRAY' CHECKSUBROUTINE ‘MATRIX' 
(9) Y+vDATA 


[10] +(0 1 2 =pp¥)/L104,L104,L10 

(11] mY HAS RANK 3 OR GREATER. ADD BLANK ROW TO EACH PLANE OF Y 

(12) Y+Y,("1+pp¥] ' ' 

[13] wRESHAPE Y TO THE EQUIVALENT MATRIX AND DROP TRAILING BLANK ROW 


(14) Y+ “1 0 +MATRIX Y 
(15] +£10 as 
[16] L10A:¥+(~2+ 1 1 ,pY)pY 
{17] £10: 

v 
* IC 

vo oRWCYX 


{1] aJUSTIFY CENTRE. CENTRE ALL ROWS OF LEFT-JUSTIFIED CHARACTER ARRAY <X> 
[2] a.K FORMATTING 
(3) Re(-LO.5x+/a\' '=OX) OX 

s 


-1 
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* 


JL 
vo RWSL YX 
aJUSTIFY LEFT. JUSTIFY CHARACTER ARRAY <X> 
a.K FORMATTING 
Re(+/a\' '=X)OX 
v 
dR 
v ReJR X 
aJUSTIFY RIGHT. JUSTIFY CHARACTER ARRAY <X> 
a.E '  WORD' = JR '' WORD '* 
a.K FORMATTING 
Re(-+/a\O" '=X)OX 


v 


MATACROSS 


Vv Y#PW MATACROSS M;ROWS;COLS;MAT 
ADISPLAYS NATRIX <M> WITH MULTIPLE COLUMNS ACROSS A PAGE OF WIDTH <PW> 
a.K FORMATTING 
a.T 1984.1.26.11.20.3 
A.V 1.0 / 2674N84 
a.¥ 2.0 / OSMAY88 / ADDED LEFT ARGUMENT 

PW+PW,(x/pPW)+0PW 

MAT+' ',¥M 

ROWS+[ (1tpMAT)#COLS+LPW4"1+pMAT 

Y+ (ROWS ,COLSx” 1+ MAT) p( (ROWSxCOLS),1+pMAT)*+MAT 


MATDOWN 


v I+A MATDOWN M;COLS;MAT;ROWS;W;0I0 
AFORMATS MATRIX <M> IN COLUMNS DOWN A PAGE ACCORDING TO <A> 
a.K FORMATTING 
A.T 1988.4.24.22.9.20 
A.V 1.2 / SNOV83 
A ary AeyTDEe OF PAGE(:0PW), [2]=SPACES BETWEEN COLUMNS(:1) 
JIO+1 
AGET DEFAULTS FOR A 
AA, (*/pA)+0PW,1 
ACOMPUTE AS THOUGH THERE ARE A(2] EXTRA SPACES ON RIGHT 
We+/A 
MAT+(¥M),((1tpM),4[2])p* * 
aDO 1[ TO PREVENT COLS=0 IF W IS SPECIFIED TOO SMALL 
ROWS+[ (1+pMAT)#COLS+11 LW# 1+ pMAT 
MAT+ 2 1 3 Q&(COLS,ROWS, 1+pMAT)p( (ROWSXCOLS) ,—1+pMAT)+*MAT 
MAT+((1t+pMAT) ,*/1+pMAT) pMAT 
ANOW DROP TRAILING BLANK COLUMNS ON RIG&T 
¥+(0,-4(2])+MAT 
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* REFORMAT 


v -Y*A REFORMAT M3I3¥30I0 
[1] REFORMAT <M> TO A[1] COLUMNS WIDE AND A(2] PRECEEDING BLANK COLUMNS 
(2] 9.K FORMATTING 
[3] a.T 1988.4.27.22.14.51 


(4) O1o+1 : 

[5] ‘REFORMAT' CHECKSUBROUTINE 'JL SS EXPANDAF SPLIT‘ 
(6) V+aDB,M,' * 

[7] n<A([2]> DEFAULTS TO 0 

(8) A+2tA 


{9] FOR MORE NOTES ON THE NEXT LINE, SEE DOCUMENTATION. 
[10] Y+JL(AL1]-A(2]) SPLIT(EXPANDAF(ipV)e(V SS '. '),¥ SS '? ')\V 
(11] aPRECEED TEXT BY A(2] BLAWK COLUMNS 
(12) Y+(((1tpY),AL2])p* '),Y 
v 


* SORTLOCAL 


VY -Y*SORTLOCAL X;C;HEADER;1;T;010 
[1] SORT LOCAL VARIABLES IN FIRST LINE OF <X> = CANONICAL MATRIX 
(2] a.K FORMATTING 
[3] a.7 1985.6.12.20.50.4 
[4] .¥ 1.0 / 129085 
Cs] Oro+1° 
(6) "SORTLOCAL' CHECKSUBROUTINE 'GRADEUP' 
(7] + (2#ppX)/ERR1 
(8] DO NOTHING IF EMPTY ARGUMENT 
[9]. +(OepY+x)/0 


(10) C+"1tpY 
(11) HEADER+Y(13] 
[12] aDO NOTHING IF NO LOCALS (NO SEMICOLON) 
(13] +(C<I+HEADER.';')/0 
(14] aSORT LOCALS AND RECONSTRUCT LIST OF LOCAL NAMES 
(15) T+';' ABOX I+HEADER 
(16) T+T(OAV GRADEUP T;) 
(17) T+i+,'3',T 
(18] AASSIGN NEW LINE 1 (HEADER) 
C19] Y(13;]+Ct(I+HBADER),(T#" ')/T 
[20] +0 
(21) ERR1i: 
(22) O+'SORTLOCAL RANK ERROR'* 
(23] +0,0ex 'y' 
v 
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* SPLIT 


VW SPLIT LINE;G;P;T;010 
{1] SPLIT TEXT VECTOR <LINE> INTO <W>-SIZE PIECES 
(2] a.K FORMATTING 
[3] a.T 1988.4.5.20.37.29 
[4] 9.¥ 1.0/30 OCT 81 


(5) Oro+1 

(6) +(W<1)/ERR1 

(7] Y<(0,W)p'' 
[8] G+pLINE+,LINE 


[9] +(¢=0)/0 
[10] L2:+((G=0),GsW¥)/0,L4 
(11] aFIND LAST BLANK IN LINE. IF NO BLANKS, TAKE WHOLE PIECE 
(12) T+(W+i)-(" *=OWtLINE) 11 
[13] P+(0 1 =x?)/W,T 
(14] aT=0 IF THERE WERE NO BLANKS 
[15] +(T=0)/L3 
(16] mALL BLAWK OR PARTIALLY BLANK. IF ALL BLANK, TAKE WHOLE PIECE 
(17) T+(P+1)-(" "#OPtLINE) v1 
(18) P+(0 1 =xT)/W,T 
(19) L3:Y+¥,(1] WtPtLINE 
[20] G+pLINE+P+LINE 
[21] +22 
(22] La:Y+y,(1] WtLINE 
(23] +0 
(24] BRR1: 
(25) O+'SPLIT DOMAIN ERROR' 
(26) O+'LEPT ARGUMENT = ',(¥¥),' NOT GREATER THAN O. 
(27] +0,0zx 'Y' 
v 


* ACENTH 


Vv Y*FLD ACENTH LABEL;C;1;M;N;0I0 

(1]  ACENTRE COLUMN HEADINGS <LABEL> WITHIN FIELDS SPECIFIED BY <FLD> 
(2]  a.K FORMATTING 

C3] a. RML 

(4) a.? 1988.5.3.0.38.19 

(5] a.v 1.0 / wove3 

(6] a<FLD> VECTOR OF TRIPLETS 

(7) (1) wrpra; [2] 1=L¥, O=CENTRE, ~1=RJ; [3] INTER-COLUMN SPACING 
(8) Oro+1 

C9] Yer 

(10] nBOxX LABELS AND LEFT JUSTIFY 

(11 M+(1tLABEL) ABOX 1+LABEL 

{12 M+(+/a\* '=M)OM 

C13] +(0=W+1+pM)/0 

C14] FLD«,FLD 

C15] +(((pFLD)= 1 3 ,3xN)/L1,L2,L2),ERR10 

(16] £1: al NUMBER. EXTEND TO ALL FIELDS, CENTRED(O), 1 SPACE 
[17] FLD+&(3,N)p(NpFLD),(Np0),Wt(W-1)p1 

C18] +24 : 

(19] £2: 3 OR 3N NUMBERS. EXTEND WIDTH, POSITIONING, SPACING TO ALL FIELDS 
(20] PLD+(N,3)p((~1+3xN) pFLD) ,0 

C21] +24 

(22) £4: 

(23] AARGUMENTS HAVE WOW BEEN DEFINED AND SHAPED 

(24) I+0 

(25] LOS:+((1tpFLD)<I+I+1)/0 

(26] aTAKE AS MANY COLUMNS AS SPECIFIED BY FLD[I] 

(27) _C+FLD(I31]+MCI3] 

(28] +("1 0 1 =xFLD[I;2])/L10,L20,L30 

(29] £10: aRIGHT JUSTIFY (~10Yx) 

(30) Ce(-+/a\" '20C)0C 

(31] +240 


wou 
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(38) 
(39) 
Cao] 
C41) 
C42] 


120: aCENTRE 
CH(-LO.5x+/a\" '=00)0C 
+L40 
L30: aIlT IS ALREADY LEFT-JUSTIFIED 
+L40 
L40: aCATENATE TO FULL HEADER 
Y+Y,C,FLD(I;3]p' * 
>LOS 
ERR10: 
O+'aCENTH LENGTH ERROR' 
Oi«'LEFT ARGUMENT MUST HAVE 1, 3, OR ',(¥3xN),' ELEMENTS.* 


(43) +0,08x ‘Y' 
v 


v 


v 


ACENTT 


Y+W ACENTT TEXT;D;F;L;MID;P3V;010 
ACENTRE <TEXT> WITH LEFT, MIDDLE, AND RIGHT PHRASES IN <W> SPACES 
a.E 78 ACENTT '/DATE/XEROX SALES REPORT/PAGE 1° 
a.K FORMATTING 
a.N RML 
a.T 1988.4.24.19.31.47 
a.v¥ 1.0 / 2NOV83 
a.¥ 2.0 / 23A4PR88 / REMOVE ‘FEATURE' THAT SPECIALLY HANDLED ONE PHRASE 
a<TEXT> HAS THE FORM /LEFT/MIDDLE/RIGHT 
Or0+1 
De1tTEXT 
AENSURE 3 ENDING DELINITERS SO THERE ARE THREE FIELDS (PHRASES) 
V+TEXT,3pD 
AFIND POSITIONS P 
P+(V=D)/1ipV 
ALENGTES L 
L+"1+1+P-"10P 
AWE ONLY WANT THE FIRST, SECOND, AND THIRD PHRASES 
AGET SECOND PHRASE AND CENTRE WITHIN W SPACES 
MID+ 1+P(2]+P(3]+¥ 
MID+W+(([0.5xW-pMID)p" *),MID 
APUT THEM ALL TOGETHER. W+t ENSURES EXACTLY W SPACES 
Yewt (“1414PL2]+V7), (£01]4+(-£03])4MID), 14PL3]+PC4I+¥ 


GRAPHICS PAGE 5-23 


* ° FIBSPIRAL 


v= Med FIBSPIRAL B;C 
(1] FIBONACCI SPIRAL. CHOOSE <A> AND <B> FROM FIBONACCI SERIES 
(2] #.B Y¥+8 FIBSPIRAL 13 
(3] a.K GRAPHICS 
C4] a.T 1985.9.20.19.37.50 
(5] aCHOOSE <A>,<B> ¢€ 1 23 5 8 13 21 34 ... WHERE A < B 


(6) C+'0" 

(7) +(4>1)/L1 

8] N+ 1 2 pC 

{9] +0 

(10] LisM+(B-A) FIBSPIRAL A 
(11) N+OQN 


(12) M+M,(A,A)pC,Ap" * 
v 


« PATTERNG 


v (2M PATTERNG C;0I0 
(1] RANDOM REARRANGEMENT OF TEXT <C> BASED ON <N> 
[2] a.K GRAPHICS 
(3] a. ROGER FREY 
(4) a.? 1988.4%.12.16.46.1 
[5] a.¥ 1.0 / auGes 
(6) Oro+1 
(7) Z+((24N)x24M)p 2.4 1 3 @C(ME3 4),pC)pC)E3327MC1 2] ppc] 


* TRIANGLE 


V  -YePRIANGLE N3I3Z 
(1] PRINT A PRETTY TRIANGLE USING #\ WHERE <N> IS A POWER OF 2 
[2] a. GRAPHICS 
(3] a.N LARRY SMITH 
fu nmOees IF N IS NOT A POWER OF 2, THE TRIANGLE IS NOT PRETTY 
+ 


(6) Yerr 

(7) Z+Npl 

C8] Lis+(N<I+I+1)/BND 
(9) Y*Y,Z\'s! 

(10) Ze#\Z 

(11) +21 


(12] END:Y+(N,N)pY 
v 
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* XFADE 


vs-R+S XFADE C3C13C2;010 
{1] aTRANSFORN TEXT IN <C> USING A ‘FADING’ ALGORITHM CONTROLLED BY <S> 
[2] a.B 16 64 XFADE '/APPLE BETTY /IS A DESSERT ' 
(3] a.X GRAPHICS 
(4) a.N PHIL LAST 
[5] a.T 1988.4.13.1.54.28 
[6] n.¥ 1.0 / 23J0L82 
{7] aS[l1] NUMBER OF ROWS IN RESULT; S[2] NUMBER OF COLUMNS 
(8] <C> IS /FIRST TEXT/SECOND TEXT 
C9] O70+1 
(10) C2+,Sp(1+S+2p,5) pC2+(1l pC2) *C2+14(2=C1++\Cei1tl) /C#(1L pC) +*C+.C 
(11) Ci+,Sp(1+S) pC1+(1f pC1) *C1+1+(1=C1)/C 
(12) C2+, OSpC\(C,OpCL??1pC+, (x/S)p0]+1)/C2 
(13) C2LC/1pC]+(C,0pCL?21pC, pCL ]+0}+1)/C1 
(14) R+SpC2 
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PROMPT 
v Y+PROMPT MSG 


[1] SIMPLE PROMPT WITH <MSG> AND REQUEST INPUT ON SANE LINE 
(2] a. INPUT 


Cs] YeCas(re! *).1)47 
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AFTER 


Y  Y+EUNS AFTER TS;B;N;R3IAGS 

AGET ALL FUNCTIONS WITH TIMESTAMP GREATER THAN <IS> 

a. AFTER 1988 1 1 

a. LIBRARY-UTILITY 

A.N RML 

a.T 1988.5.2.17.29.4 

a.v 1.0 / 190CT83 

A.V 2.0 / O2MAY88 / ADDED LEFT ARGUMENT 

A<EUNS> IS NAMELIST OF FUNCTIONS 

+00 p'! 

1] -FUNS«"* ABOxX ADB," ',ZUNS 
] +L£10 AIF~O<pEUNS 
]  FUNS+ONL 3 
] £10: 
] a-----GET FUNCTIONS WITH T TAGLINES 
] -LAGS+'T' GETTAG EUNS 
} Bev /TAGse' * 
] 
] 
] 
] 
] 
] 


AQUIT IF NO NON-EMPTY TAGLINES 
>(~v/B)/0 
TAGS+B/TAGS 
UNS+B/EUNS 
A-----MAKE NUMERIC AND COMPARE 
ReitpZAGs 
TAGS+,TAGS,' * 
B+raGse'.' 
[25] N+(10000,5p100)1(R,6)p2B\B/TAGS 


(26) IS+(10000,5p100)16+7S 
C27] I+'' SORT(ISSN)¢EUNS 


Calaleteleleleleleleleleteleteteulelalmlalaletenl 
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CATEGORY 


Vv -Y*CATEGORY X;13N 

[1] RETURN NAMES OF CATEGORY DOCUMENTS CORRESPONDING TO NAMES <X> 
(2] a.K LIBRARY-UTILITY 

(3) n.W RML 

(4] n.T 1985.5.22.11.18.56 

[5] a<X> CAN BE A VECTOR OR A MATRIX 


(6) Y+ 01 p'' 
(7) X+'' ABOX aDB,' ',X 
(8] I+0 


(9]_ L10:+((1tpx)<I+I+1)/0 
[10] aREMOVE HYPHEN (IF PRESENT) FROM CATEGORY NAME 
(11) Ne(~X(I3Jet-")/X(I3] 
(12) Y+Y ON ‘CATEGORY',W 
(13] +210 
7 
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* CATOFFUN 


VY -Y+*CATOFFUN X37 
[1] aRETURN CATEGORIES REPRESENTED BY FUNCTIONS <I> 
[2] a.K LIBRARY-UTILITY 
(3] a.N RML 
(4]  a.T 1985.5.22.14.6.42 
[5] NOTE: <X> IS A VECTOR OR MATRIX OF FUNCTION NAMES 
(6] X+'' aBOX ADB," ',X 
(7) Y+'' SORT(BP [)¢I+'K' GETTAG X 


* CONTENTS 


VY Y*CONTENTS NAMES;KEYS;HEADS;PURPOSE;S3N;13X;ELAGS;1;HOW 
(1] RETURN NEATLY FORMATTED REPORT OF FUNCTIONS <NAMES> BY CATEGORY 
[2] a.D 20sUL83 
(3] a.& LIBRARY-UTILITY 
C4] a.W RML 
[5] a.7 1985.5.23.12.7.35 
(6] REPORT IS SORTED BY CATEGORY 
(7) I+ 01 p'' 
(8) NAMES+'' ABOX ADB,' ',NAMES 
{9] +(OepNAMES)/O 
(10) KEYS+'K' GETTAG NAMES 


(11) ELAGS+'F' GETTAG NAMES 

(12) HEADS+O GETTAG NAMES 

(13) PURPOSE+1 GETTAG NAMES 

(14] aCLEAN HEADS (REMOVE LIST OF LOCAL VARIABLES) 
Hee HEADS+ADTB( pHEADS)pI\(I+, A\EEADS#* 5") / HEADS 


aSORT BY NAMES 

(17) S+'' GRADEUP NAMES 
(18) NAMES+NAMES( S31] 
(19) KEYS+KEYS(S3] 

(20) ELAGS*ELAGS(S3] 
(21] HEADS+HEADS( S31 
[22] PURPOSE+PURPOSELS;] 
(23] nSORT BY KEYS 

(24) S+'' GRADBUP KEYS 
(25] NAMES+NAMBS(S; J 
(26) KEYS+KEYS(S3] 

[27] FLAGS+ELAGS(S;1 
(28] HEADS+HEADS(S;1 
{29] PURPOSE+PURPOSE(S;) 
(30] aGET BREAKPOINTS OF KEYS 
[31] N«BP KEYS 
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[32] aNOW PREPARE REPORT 
[33] Io 
(34] £10:+((pN)<I+L+1)/END 
(35] +(~N(ZJ)/L20 
[36] aPRINT TITLE OF CATEGORY 
[37] aPRECEDE BY SPACES IF SECOND OR MORE CATEGORY LISTED 
[38] Y+Y ON(2 1 xI>1)p' ' 
(39] Y+Y ON KEYS(I;] 
[40] Y+Y ON 100p'-' 
(41) £20: 
[42] aDELETE TRAILING BLANKS FROM NAME OF FUNCTION. 
{43] aEXTEND NAME TO 10 SPACES OR NEAREST MULTIPLE OF 3 IF 
{44] aNOT ENOUGH SPACE TO FIT NAME 
(45) I+paDTB NAMES(I;1 
C46] X+10F ((2+2)>10)x3xf (242) 43 
(47) HoW+1+(2=0NC 'HOW' ,NAMES(I;])/**' 
(48) Y+Y ON ' ',HOW,' *,(X*NAMESLI3]),(ADTB HEADS(I:]),". ',1+PURPOSE(I3} 
C49] +210 
(50] END: 
v 


CONTENTS1 


v Y+CONTENTS1 X;MAT3KEYS31;35 

[1] FORMATTED REPORT OF FUNCTIONS <I> BY CATEGORY 

(2] a.X LIBRARY-UTILITY 

[3] a.W RML 

(4) a.T 1985.5.23.12.1.15 

AREPORT SHOWS: CATEGORY, FUNCTION, PURPOSE SORTED BY CATEGORY 


AFIRST SORT FUNCTIONS 
X+'' ABOX aDB,' ',X 
I+ 12 3 soRT X 

AGET KEYS, SORT KEYS AND BLAWK OUT DUPLICATES 
KEYS+'K' GETTAG X 
KEYS+KEYS(S+'' GRADBUP KEYS;] 
KEYS+I\(I+BP KEYS) /KBYS 

AADJOIN KEYS WITH NAMES AND PURPOSE LINES 
MAT+KEYS,' ',((ADTB X),' ',1 GETTAG X)(S3] 

APUT A LINE BETWEEN EACH CATEGORY 
I+(EXPANDBE I)%MAT 


eoeuuous 


v 
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DELTAG 


Vv Y*CODE DELTAG ENS;EN;1I;7;MAT3T 
(1] aDELETE TAG LINE <CODE> FROM FUNCTIONS <ENS> 
(2] a.K LIBRARY-UTILITY 
(3] a.N RML 
C4] a.T 1983.11.4.16.56.11 
(5] a.V 1.0 / 4NOV83 


C6] Qro+1 

(7) I*i0 

(8) 2(2#ppENS)/'ENS+'' '* ABOX ADB ENS'* 
[9] a----- DO IT FOR EVERY FUNCTION 

[10] g+0 


[11] L10:+( (J+g+1)>1tpZNS) /END 
(12) MAT+OCR EN+ENS(Z;) 
(13] a----- MAKE SURE MAT HAS AT LEAST TWO LINES WITH FIRST LINE COMMENT 
[14] +((0 1 =1+pMAT)/L15,L20),L0 
[15] aNO LINE. CANNOT GET CR. 
[16] £15:0+'DELTAG ERROR. CANNOT GET CR FOR ',EN 
(17] +BLEND 
(18] £20: nONE LINE. SKIP IT 
(19] +ZLEND 
(20] LO: THIS MAT HAS AT LEAST TWO LINES. SEARCH FOR TAG LINE 
(21) I*MAT(E 314) 4.2'8.", 2*CODE 
(22) +(O=v/Z)/L1 : 
[23] aFOUND IT. SO REMOVE IT AND FIX FUNCTION 
(24) I+OFX(~I) ¢MAT 
(25) +(0#1+0p2)/LEND 
(26) O+'TAGIT ERROR. FIXING FUNCTION = ',EN,' LINE = ',(¥Z),' ‘,MAT(Z3] 
(27) +BLEND 
[28] Li: aDID NOT FIND IT. SO SKIP IT 
[29] +LEND 
(30] LEND: 
(31) IY1 
(32] +Z10 
(33) BLEND: 
C34] I+Y.0 
(35] +£10 
(36] END: 
v 


* BXAMPLE 


VY -BXAMPLE N;LINE 
(1] EXECUTE EXAMPLE LINE (*E' TAG LINE) OF FUNCTION <N> 
(2] #.K LIBRARY-UTILITY 
(3] A.? 1988.4.12.20.10.23 
(4] LIWNE+,'E' GETTAG N 
(5]  a<GETTAG> RETURNS BLANK IF NO EXAMPLE 'E' TAG LINE 
[6] +£10 alFa/LINE=' * 
(7) O+LINE 
(8] O+eLrwE 
(9] +0 
(10] £10: 
(11) O+'WO EXAMPLE FOR ',N 
v 


PAGE 
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EXPLAIN 


I+EXPLAIN X31 
ARETURN DOCUMENTS NAMED IN <X> USING SCRIPT FUNCTION 
a.K LIBRARY-UTILITY 
aN RNL 
a.T 1985.5.22.10.59.53 
a.V 2.0 / 22MAY85S 
AUNDERSCORED VARIABLES TO REDUCE CHANCE OF SHADOWING FROM SCRIPT 
+00 p'! 
X+'' aBOxX aDB,* ',X 
I+0 
L£10:+((1+pX)<I+I+1)/0 
*(220WC X(I3])/L20 
Y+Y ON ‘EXPLAIN ERROR. DOCUMENT (',X(I;],') NOT FOUND' 
I+l on 21 p' ' 
+L10 
£20: 
I+Y ONs'SCRIPT ',X(I3] 
aNO BLANK LINES IF THIS IS THE LAST DOCUMENT 
+(L=1tpX)/L£10 
Il ON 21 p'' 
+L10 


FUNCTION 


v Y+FUNCTION X;I 


(11) 
v 


ARETURN NAMES OF HOW DOCUMENTS CORRESPONDING TO FUNCTIONS <X> 


a.K LIBRARY-UTILITY 
a.N RML 
a.T 1985.5.22.11.10.34 
a<X> CAN BE A VECTOR OR A MATRIX 
Y+ 01 pt" 
X+'' ABOX ADB," ',X 
I+0 
£10:+((1tpX)<I+I+1)/0 
Y*Y OW 'HOW',X(I3] 
+L10 
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* FUNSINCAT 


Vv Y*N FUNSINCAT X;B;KEYS 
[1] SORTED LIST OF ALL FUNCTIONS IN <N> BELONGING TO CATEGORYS <X> 
(2] a.X LIBRARY-UTILITY 
[3] A.W RML 
(4] a.T 1988.5.2.17.21.41 
[5] a.¥ 1.0 / 22MAY85 
[6] .V 2.0 / O2MAY88 / ADDED LEFT ARGUMENT 
[7] a<X> IS A VECTOR OR MATRIX OF CATEGORY NAMES 
[8] a<N> IS NAMELIST OF FUNCTIONS 
9] X+'' aBOX ADB,’ ',X 
(10) Ne'' sBOX sDB,' ',N 
[11] +£10 aIF~OcoN 
(12) N+OWL 3 
(13] Lio: 
(14) KEYS+'K' GETTAG N 
[15] mREMOVE BLANK KEYS FROM FUNCTIONS THAT DO NOT HAVE A K TAGLINE. 
(16] aTHIS IS PRIMARILY TO AVOID EXTRA COMPUTATION. 
[17] aBlI]=1 MEANS THE TAG-LINE IS NON-BLANK 
(18) B+~KEYSA.=" 
[19] +(~v/B)/0 
[20] N+BsN 
(21] KEYS+B/KEYS 
[22] aNOW GET SPECIFIED KEYS 
(23] I+'' SORT ADB(KEYS SROWMEM X)/N 
¥ 


* GETTAG 


Vo +X GETTAG M3CR313L32AG30I0 
[1] GET LINE CONTAINING TAG X (OR LINE X IF NUMERIC) FOR FUNCTIONS IN M 
[2] a.E 'K' TAGLINE ‘GETTAG' 
[3] a.X LIBRARY-UTILITY 
C4] 9.7 1988.4.28.1.31.16 


(5) Oro+1 

6] "GBTTAG' CHECKSUBROUTINE ‘ON ADTB' 
(7) I+ 00 p'' 

8] M+'' ABOX ADB,' ',M 


[9]  ACOMPUTE ACTUAL TAG PHRASE (n.K a.N ... ) ALLOW FOR NUMERIC X 
(10) TAG+'n.',(¥Z)," * 
(11) Li:+(0epM)/END 
(12) cR+OcR M(1;] 
[13] +(~0€pCR)/LOK 
fas) ARETURN BLANK LINE IF FUNCTION NOT FOUND OR LOCKED 
15 i 
[16] +£10 
(17) LOK: 
(18] aDO SPECIAL PROCESSING FOR NUMERIC X 
[19] +(0=1t0pxX)/ZAGH 
[20] a----- SEARCH FOR POSITION OF (FIRST OCCURRENCE OF) TAG LINE 
(21) I+(CRU31pZAG]4.=2AG) 11 
[22] +(1 0 =Isitp€R)/L03,L04 
(23] L03:L+4+CR(I3] 


(24] +Z10 

[25] LO4:ze" * 

[26] +Z10 

[27] a----- GET LINE X 


(28] LAGN: 

[29] ADOES CANONICAL FORM CONTAIN LINE X? (REFER TO HEADER AS LINE X=0) 
[30] +(1 0 =(1tpGR)21+X)/L06,L05 

[31] £05: aT#IS FUNCTION DOES NOT HAVE LINE X 
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+L10 
[34] Lo6:L+CR(1+z3] 
[35] +£10 
[36] a----- APPEND TAGLINE L TO MATRIX OF TAG LINES 
(37] L10:¥+Y OW L 
C38] M+ 10 4M 
(39) +£1 
C40) END: 
C41] I+aDTB Y 
[42] aIF ¥ IS EMPTY, THEN EXTEND_Y WITH A COLUMN OF BLANKS 
C43] I+((1teY), (io =OepY)/1, 1tpL)+y 
v 


PUTTAG 


Yo -Y+ZEXT PUTTAG ENS3EN313MAT3¢323CODE;LINE;0I0;ALPHA 
(1] PUT TAG LINE <TEXT> ON FUNCTIONS <FNS> 
[2] a.X LIBRARY-UTILITY 
(3) a.T 1983.11.4.16.56.11 
(4) a.v 1.2 / 310C783 ; 
(5] n<TEXT> HAS THE FORM: C XXXXX WHERE C IS A TAG CHARACTER 
(6) Oro+1 
(7] +10 
(8) £(2#ppENS)/"ENS+'' ** ABOX ADB ENS' 
(9]_ AREMOVE LEADING '.' IF NECESSARY 
(10) TEXT+(~A\ZEXT=".")/TEXIT 
C11] CODE+1+TEXT 
(12] mEBNSURE FOR NEW TAG LINE THAT SPACE FOLLOWS CODE 
(13] LINE+'n.',(2*CODE) ,2+2EXT 
(14) z+0 
(15] £10:+( (J+g+1)>1+pENS) /END 
(16) MAT+OCR EN+ENS(Y;]) 
(17] a----- MAKE SURE MAT HAS AT LEAST TWO LINES WITH FIRST LINE COMMENT 
[18] +((0 1 =1tpMAT)/L15,£20),L0 
(19] aNO LINE. CANNOT GET CR. 
(20) £15:0+'PUTTAG ERROR. CANNOT GET CANONICAL MATRIX FOR ',EN 
(21] +BLEND 
(22] £20: AONE LINE. ADD A LINE FOR FIRST LINE COMMENT 
(23] MAT+MAT,([1](~“1tpMAT)+*A! 
(24) +22 
(25] LO: aTH#IS MAT HAS AT LEAST TWO LINES. CHECK FOR FIRST LINE COMMENT 
(26) +('a'=MAT[231])/L2 
(27] aADD LINE FOR FIRST LINE COMMENT 
(28) MAT+MAT(131,(1](("1tpMaT)*+'a'),[1] 1 0 +MAT 
(29] £2: aNOW MAT HAS AT LEAST 2 LINES WITH FIRST LINE COMMENT 
(30] SKIP NEXT PART IF [EXT IS EMPTY 
(31] +(O=pZExT)/L3 
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(32] a----- PUT IN NEW TAG LINE 

(33] aPAD MAT WITH TRAILING BLAWKS (IF NECESSARY) TO ACCOMMODATE LINE 
[34] MAT+((1+pMAT),((~1+pM4T) I pLINE))+MAT 

[35] aNOW SEARCH FOR TAG LINE 

(36) I+(MATDE 3.4] 4.2'Aa.",2*CODE) /11tpMAT 

C37] +(O=pZ)/L1 

[38] aFOUND IT. SO REPLACE (FIRST OCCURRENCE OF) IT. 

(39) MATCA1tl; ]+("1tpMAT) +LINE 

[40] +23 

(41] Li: aDID NOT FIND IT._SO INSERT NEW LINE AFTER LINE 1 
C42) MAT+MAT(123],[1](("1+pMAT)+LINE),[1] 2 0 +MAT 


[44] a----- NOW REORDER LINES WITH a.X<BLANK> (WHERE X IS ALPHABETIC) 
C45] I+(MATE3 1 2 4JA.=ta. ')/r.1tpMAT 

(46) ALPHA«' ABCDEFGHIJKLMNOPQRSTUVWXY Z SABCDEFGHIJKLMNOPQRSTUVWXYZA' 
C47] I+(MAT(I33]¢ALPHA)/I 

(48) MATCI; ]+MATCICAALPHA\MAT(I;3]]31] 

[49] +(0#1t0pZ+DFX MAT) /LEND 

[50] O+'PUTTAG ERROR. FIXING FUNCTION = ',EN,' LINE = ',(¥Z),' ',MAT(T3] 
(51] +BLEND 

(52] LEWD: 

[53] IeI,1 

[54] +210 

(55] BLEND: 

[56] I+r,0 

(57] +Z10 

(58] END: 


® SCRIPT 


VY -Y*SCRIPT LEXT3C3CODES; DEFAULT; I3d3L;SIMK; TOKENS ;X 

ARETURN DOCUMENT <> USING SCRIPT IN CHARACTER MATRIX <[BXT> 
a.K LIBRARY-UTILITY 

a.N RNL 

a.T 1988.4.4.13.57.5 

a.V¥ 1.1 / MAY85 / ORIGINAL 150CT83 

a.V 1.2 / APR88 / ADDED AND IMPROVED DEFINITIONS OF CODES 
AFOR EXPLANATION OF CODES SEE DETAILED DOCUMENTATION. 
AVARIABLES START WITH UNDERSCORE TO AVOID SHADOWED VALUES. DO NOT 
AUSE THESE LOCAL VARIABLE NAMES IN THE EXPRESSIONS IN <TEXT>. 
] AIF FUNCTION SUSPENDS ... 
Jn - DISPLAY Y TO SEE HOW FAR EXECUTION GOT 
ja - DISPLAY L TO SEE THE BAD LINE 
] I+ 0 1_9'' 
,] TEXT+(~2+ 1 1 ,pLBXIT)pLEXT 
] aIF NO CODE IS FOUND ON A LINE, USE DEFAULT CODE D (TO DISPLAY LINE) 
] DEFAULT+'D' 
] aEACH CODE APPEARS AS <.X > A BLANK MUST FOLLOW A CODE. 
] CODES+ 8 1 p'TDRSENCX' 
] TOKENS+'.',CODES,' ' 
] I+0 
] £10:+0 arF(1tpZEXT)<I+I+1 
] NOTE: THIS ALGORITHM ALLOWS FOR SHORT LINES WITHOUT CODES 
] @eTEXIT(I3]1' * a 
J} +(Z154,L15B) AIFV/TOKENSA.=(~1+pTOKEWS)*+2*Z8XT(L3] 

] £154: aFOUND CODE ON THIS LINE 

[26] C+TEXT(I;2] 
[27] aUSE EVERYTHING AFTER FIRST BLANK FOR EXPRESSION 
(28) L+d+TEXTCL3] 
(29) +£15 
[30] L15B: 
[31] aNO CODE ON THIS LINE. UNKNOWN CODES ARE NOT RECOGNIZED. HENCE THEY 


eee etelelololelalelelelelolalelalalainlalal 
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[32] aARE TREATED AS ORDINARY TEXT AND DISPLAYED. 

[33] C+DEFAULT 

[34] aUSE ENTIRE LINE FOR EXPRESSION 

(35) L+TEIT(L;] 

(36] +215 

[37] L15:+(LD,LR,LE,LN,LC,LS,LT,LX) AIF C='DRENCSTX' 

[38] LD: DISPLAY 

[39] Y+Y OW ADTB L 

[40] +Z10 

(41] LR: aDISPLAY COMPUTED RESULT 

[42] Y+Y ON ADTB FIXUPARRAYSL 

[43] +Z10 

[44] LE: akXECUTE 

[45] SINK+2L 

[46] +210 

(47] LN: aNILADIC EXECUTE 

C48) sb 

[49] +210 

(50] LC: aCOMMENT 

(51) +L10 

(52] LS: aSPACE 

(53) IY ows! 

[54] +Z10 

(55] LT: aTERMINAL 

[56] I+Y ON(6p' '),ADTB L 

(57] aGoO TO L10 IF COMMENT 

[58] +L£10 AIF 'a'=1th 

[59] nGO TO LT01 IF NO ASSIGNMENT SYMBOL IN LINE 

[60] +£LT01 aIF~'+'eL 

{61] aTHERE IS ASSIGNMENT SYMBOL. GET PART PRECEEDING SYMBOL. 

(62) X+aDB("1tLrte" +h 

[63] ATREAT SPECIALLY IF ASSIGNING TO QUAD (TERNINAL OUTPUT) 

[64] +£703 arra/Xe'Q' 

(65] aTREAT SPECIALLY IF ONE VALID NAME (ASSIGNMENT STATEMENT, NO TERMINAL 
[66] aouTPuT) 

(67) +(£702,L701) 

AIFA/Xe' ABCDEFGHIJKLMNOPQRSTUVWXY ZABCDEFGHISKLMNOPORSTUVWXYZ1234S67890bA' 
(68] L701: 

(69] aL HAS <+> BUT IS NOT AN ASSIGNMENT STATEMENT. EXECUTE AND CAPTURE 
(70] ARESULT FOR DISPLAY. 

(71) I+Y ON ADTB FIXUPARRAY2L 

(72] +Z10 

(73] Lro2: 

(74] nL IS ASSIGNMENT STATEMENT. EXECUTE BUT DO NOT EMBED RESULT IN 
[75] mDOCUMENT, BECAUSE THE RESULT OF AN ASSIGNMENT IS NOT NORMALLY 
(76] aDISPLAYED ON THE TERMINAL. 

(77) 2b 

[78] +Z10 

(79] L703: 

[80] aL HAS FORM O+EXPRESSION OR (+NAME+EXPRESSION 

(81] mEXECUTE SCRIPT RECURSIVELY USING .R AND EXPRESSION WITHOUT THE 0 
(82] aTHIS WILL EMBED RESULT IN DOCUMENT. (MIMICS DISPLAY ON TERMINAL) 
(83) I+Y ON SCRIPT '.R *,(Li'+")4h 
(84) +Z10 
[85] LX: aBXPUNGE 
(86) SINK+OBX *' aBOX ADB L 
(87] +£10 

v 
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* ouT 


v  (OUT X3I;SINK 
{1] PUT TEXT <X> TO OUTPUT DEVICE 
(2] a.K OUTPUT 
[3] +GaOUTF/SKIP 


(4) GAOQUTE+GAOUTF+1 
(5) OUTHEADER 

(6] SKIP: 

(7] +GaoUTH/SKIPO1 

(8) GaOUTH+1 

C9] OUTHEADER 


[10] SKIPO1: 

(11) Xe("2t 11 ,pX)ex 

(12) I+0 

(13] LO:+((1t+pX)<I+I+1)/0 

[14] +(GAOUTLINE<GAOUTLINIT)/OK 

(15] aTOO MANY LINES. GO TO WEW PAGE AND PRINT HEADER 
(16) OUTPAGE 

(17) GAOUTH+1 

(18) OUTHEADER 

(19) OK: 

(20) GAOUTLINE+GAOUTLINE+1 

(21] +(GAOUTDEVICE="AFPTZ')/A,F,P,T,Z 


4 
(23) GAOUTBUFFER+GAOUTBUFFER OW X(I;) 
[26] GAOUTBUFFER+GAOUTBUFFER ON X(I;) 


[29]  O+caourpacecaar, (132LpX(13]) +273] 
[30] GAOUTPAGECHAR+' * 
(31) +20 


T: 
(33) O+Opw+x(r3] 
(34) +20 
(35) Zz: 
(36) aouT x(I3] 
[37] +zo 

v 
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OUTCLOSE 


v OUTCLOSE;SINK 
[1] aCLOSE OUTPUT DEVICE 
(2] a.K OUTPUT 
tas +(GAOUTDEVICE='AFPTZ')/A,F,P,7,2 
C4 A: 
(5] aPAD WITH BLANK LINES IF LAST PAGE IS PARTIALLY FULL 
[6] +(GAOUTLINE=0)/A10 = 
(7] GAOUTBUFFER+GAOUTBUFFER,(1]( (GAOUTLIMIT-GAOUTLINE), 1+pGAOUTBUFFER)p' 
' 


{8} A10: 
[9] ARESHAPE BUFFER TO RANK-3 ARRAY (EACH PLANE IS A PAGE) 


(10) 
GAOUTBUFFER+(((1+pGAOUTBUFFER)+GAOUTLIMIT) ,GAOUTLIMIT, 1*pGAOUTBUFFER)pGhO 

UTBUFFER 

(11] aDEFINE ARRAY 

(12) 2G AOUTNAME , '+GAOUTBUFFER* 

(13] +LEND 

(14) F: 

[15] aDEFINE COMPONENT FOR TEXT ON LAST PAGE (IF ANY) 

[16] +(GAOUTLINE=0)/LEND 

(17) 2G AOUTNAME , (¥GAOUTPAGENO) ,'+GAOUTBUFFER' 

(18] +LEND 

{19] P: 

[20] aCLOSE PRINTER AS REQUIRED (INSERT CODE HERE) 

(21] +LEND 

(22] fT: 

(23] aPRINT READY TEXT UNLESS LAST PAGE IS EMPTY 

[24] +(GAOUTLINE=0)/LEND 

(25] (+G AOUTREADYTEXT 

(26] SINK+O) 

[27] +LEND 

(28) 2: 

[29] aCLOSE AS ALREADY DEFINED FOR THIS DEVICE 

{30] AOUTRESET 

(31] +LEND 

(32) LEND: 

(33) SINK+DEX 'GAOUTBUFFER' 

Can) ofr DESIRED QBX VARIOUS OTHER ‘GAOUT' VARIABLES HERE 


OUTHEADER 


VY OUTHEADER 
(1] aPRINT HEADER 
(2] a.K OUTPUT 

(3) 2GAOQUTHEADER 
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OUTOPEN 


v HEADER OUTOPEN X;PARMS 
[1] OPEN OUTPUT DEVICE SPECIFIED BY <X>. USE HEADING FUNCTION <HEADER> 


[2] a.K OUTPUT 
[3] aNOTE: IF HEADING FEATURE NOT USED, DEFINE HEADER AS EMPTY VECTOR 


[4] a<X> HAS FORMAT: DEVICE, PARAMETER , PARAMETER2 
{(5] a THE MEANING DEPENDS ON THE DEVICE 


6] GAOUTHEADER+HEADER 

(7) PARMS+',' ABOX X 

C8] GAOUTDEVICE+ADB PARMS(1;] 
9] GAOUTLINE+O 


[10] GAQUTPAGENO+1 
(11) GAOUTLIMIT#L/10 
[12] GAOUTBUFFER+ 0 0 p'' 
[13] +( (GAOUTDEVICE='AFPTZ'),1)/A,F,P,T,2,BRR1 
(14] A: aARRAY. <X>='A',NAME,LIMIT 
(15) GAOUTNAME*+ADB PARMS(2;] 
(16) GAOUTLIMIT+2PARMS(3;] 
(17) GAOUTBUFFER+ 0 0 p' 
(18] +LEND 
(19] F: aFILE. <X>='F',LIMIT 
(20) GAOUTLIMIT+2PARMS(2;] 
[21] aINITIALIZE BUFFER 
(22] GAOUTBUFFER+ 0 0 p* 
.£23] aDEFINE BASE NAME OF MATRIX USED TO DEFINE COMPONENTS 
(24) GAOUTNAME+' COMPONENT ' : 
[25] +LEND 
(26] P: aPRINTER (SKELETON). <X>='P',LIMIT 
(27] GAOUTLINIT+2PARMS(2;] 
[28] mPAGE FORNAT CHARACTER. 1=GO TO TOP OF PAGE BEFORE PRINTING TEXIT 
(29] GAOUTPAGECHAR+'1' 
(30] +LEND 
(31] T: aTERMINAL. <X>='T',LIMIT 
(32] . GAOUTLIMIT+2PARMS(2;] 
(33] GAOUTREADYTEXT+'PRESS <ENTER> KEY TO CONTINUE.' 
(34) +LEND 
[35] Z: aZ-DEVICE. <X>='Z',LIMIT 
(36) GAOUTLIMIT+2PARMS(2;] 
(37) AOUTSET 
(38] +LEND 
(39] LEND: 
(40) GAOUTH+GAOUTF+0 
C41] +0 
C42] ERR1: 
C43] O+'OUT DOMAIN ERROR* 
Hee O+"UNKNOWN DEVICE CODE (',GAOUTDEVICE,')* 
° 
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(1) 
(2) 


OUTPAGE 


v OUTPAGE; SINK 

AADVANCE DEVICE TO NEW PAGE 

a.K OUTPUT 
GAOUTE+O 

aNO PAGE ADVANCE IF ALREADY AT TOP 

+(GAOUTLINE=0)/0 

+(GAOUTDEVICE="AFPTZ')/A,F,P,T,2 

A: 

APAD BUFFER WITH EMPTY LINES TO END OF 'PAGE' = 
GAOQUTBUFFER+GAQUTBUFFER,(11]( (GAOUTLIMIT-GAOUTLINE), 1+pGAQUTBUFFER)p' 


+LEND 

F: 

ADEFINE THIS COMPONENT (AS A VARIABLE) 
2G AOUTNAME , (¥GAOUTPAGENO) ,'+GAOUTBUFFER' 
GAOUTBUFFER+ 0 0 p'' 

+LEND 

P: 

aIN IBM ENVIRONMENT SIMPLY RESET PAGE FORMAT CHARACTER 
GAOUTPAGECHAR+'1° 

+LEND 
(+GAOUTREADYTEXT 
SINK+O) 


AOUTPAGE 

+LEND 

LEND: 
GAOUTLINE+0 

AADVANCE PAGE COUNTER TO ‘THIS PAGE' 
GAOUTPAGENO+GAOUTPAGENO+1 


PRINT 


v PRINT TEXT 
AEXAMPLE PRINT COVER FUNCTION TO PRINT <TEXT> ON PRINTER 
a.K OUTPUT 
'* QOUTOPEN 'Z,34" 
OuT TEXT 
OUTCLOSE 
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REPORT 


Vv REPORT PARMS;N 
[1] aSIMPLE BXAMPLE OF USING THE OUTPUT FUNCTIONS 
[2] a.K OUTPUT 


(3] "REPORTHEADER' OUTOPEN PARMS 

(4) OUT ‘FIRST LINE OF SAMPLE REPORT - USING THE OUTPUT FUNCTIONS' 
[5] HERE'S ONE WAY TO MAKE TWO BLANK LINES 

(6] OUT ‘TWO BLANK LINES FOLLOW ... 

(7) our 21 p'' 

8] OUT ‘IT IS OK TO OUTPUT A MATRIX" 

(9) OUT 6 6 p'MATRIX' 


[10] aNUMERICS MUST BE IN CHARACTER FORM 

(11) OUT ‘TO OUTPUT NUMERIC DATA, PUT IN CHARACTER FORM FIRST ... 
(12] OUT¥.3 

[13] OUTPAGE 

(14) OUT ‘FIRST LINE OF NEXT PAGE’ 

(15) OUT ‘THE QUICK BROWN FOX JUMPED OVER THE LAZY BLACK HEN' 

(16] OUT ‘NOW TWO SUCCESSIVE CALLS TO OUTPAGE (ADVANCES ONE PAGE ONLY)' 
{17] aTWO CALLS TO OUTPAGE (ADVANCES ONE PAGE ONLY) 

(18) OUTPAGE 

C19] OUTPAGE 

(20] OUT ‘THIS SHOULD BE TOP OF NEXT PAGE (AFTER QUICK BROWN FOX)' 
(21) OUT ‘PRINT ',(¥N+16),' LINES ... 

(22] OUT((N,5)p'LINE '),¥(N,1)p.W 

(23] OUTCLOSE 


REPORTHEADER 


v REPORTHEADER 
{1] SIMPLE EXAMPLE OF REPORT HEADER USING OUTPUT FUNCTIONS 
[2] a.K OUTPUT 
(3) OUT JC 78+*SAMPLE REPORT PAGE ',¥GAOUTPAGENO 
C4] OUT 78p'-' 
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* GRAFD 


¥ GF+CODES GRAFD X;A4X3;C3N;PDS;S;Y;010 
(1] HISTOGRAM OF DATA <X> SPECIFIED BY <CODES> 
[2] a.K PLOTTING 
(3] a.N EIKE KAISER 
C4] a.v¥ 1.0 / 12 MAY 83 
(5] aCODES{1] C = NUMBER OF CELLS TO BE USED ALONG Y AXIS 
(6] aCODES[2] PDS = PERIODS PER CYCLE IN DATA 


C7] Oro+1 

C8] Nel 

(9] C+CODES(1) 
(10] PDS+CODES(2] 
(aad La: 


(12) YE (CL /X)-L/X)4e 

[13] +(¥>1)/L2 

(14) Y+Ix10 

(15) N+Nx10 

(16) +21 

(17) £2: 

(18) S+(L/X)+(-¥)+Ix1C+1 

(19] GF+0((C+1),pX)p(,S*.sX)\'0" 
[20] S+S4N 

C21] S+@ 12 2 ¥((pS),1)pS 

(22] AI+(149GF)p® 14'0',PDSp'-' 
(23] GF+aX,(1] GF,{1] 4X 

C24] S+te',Ci}(((itps),-+/v/(1] s#' *)+S),Ci] 'e' 
(25) GF+(S,' '),GF,' '.S 


AIST 


v Y+HIST X 
(1] SIMPLE HISTOGRAM OF DATA VECTOR <X> 
(2] a.K PLOTTING 
(3) Ye'Q "(1+(O.f/X)°.2¥) 

v 


SCATTER 


v MAT+Y SCATTER X;POS;SHAPE;0I0 
(1] SIMPLE SCATTER PLOT OF VECTORS <Y¥> (Y-AXIS) AGAINST <X> (x-aIIS) 
(2] a.K PLOTTING 


(3) Oro+1 

C4] MAT+, (SHAPE*(T/Y),[/X)p" ' 
(s] POS+1+SHAPEL 1+Y,(0.5] X 
(6) MAT(POS]+'*!" 


{7] MAT+O'+','+",[1] SHAPEPMAT 
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v 


SIXLINE 


PLTI+SIXLINE V;A;B3;MA3MI3NC3X3XD;YD;010 
ARETURW SIXLINE PLOT GIVEN X AND Y DATA IN <V> = Nx2 NATRIX 
a.K PLOTTING 
a.N RML 
a.T 1988.4.13.1.49.11 
a.V 1.0 / JUN7S 
a<V(;1]> IS XY-COORDINATE, <V[;2]> IS Y-COORDINATE 

O10+1 
+(2#ppV)/ERR1 
+(OepV) /ERR2 
+(2# 1+p¥)/EBRR3 

NC+300 (1+p¥)L60 

x+v(31] 

vev(32) 

MI+L/Y 

MA+T/X 

XD+[ 1+(X-MI) x (NC-1)4MA-MI 

YD+1037L19+(xV)xLi+4xIV 

A+((10p6), (495), (4p4), (593), (492), (1091) LD] 

B~'198765432143214321012341234123456789 [1D] 

PLT+(6xNC)p' ' 

PLT(WC1(A-1),(0.5] XD]+B 

PLT+(6 3 p'+21+i1+01-01-11-21'"),(6,8C)pPLT 
+0 
BRR1: 

O+'SIXLINE RANK ERROR‘ 

O+'RIGHT ARGUMENT DOES NOT HAVE RANK 2° 
+0 
BRR2: 

O+'SIXLINE DOMAIN ERROR‘ 

O+'RIGHT ARGUNENT IS EMPTY' 
+0 
ERR3: 

O+'SIXLINE LENGTH ERROR‘ 

O+'RIGHT ARGUMENT DOES NOT HAVE 2 COLUNNS.' 
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* STEMLEAF 


v SL+STEMLEAF 2;1;LEAF;LEAFN;MAXL;N;NLEAF ; STEM; STEMN;ZN;ZP;0I0 
(1] STEM AND LEAF PLOT OF DATA <Z> 
(2] a.K PLOTTING 
(3) a.T 1988.4.27.23.25.55 


C4] Oro+1 

(5] Z+,Z 

[6] Z«Z(42) 

(7] N+pZ 

(8] ZP+L (02) /Z 
(9) “ZN+L-(0>2)/Z 


(10) STEMN+|(ZN,ZP)*10 


(11) LEAFN+L (ZN,ZP)-10xSTENN 

(12] STEMN+(L-(ZN+1)4+10) ,LZP#10 

(13] STEM+STEMN(1]+ 1+11+STENN(N)-STEMN(1) 

(14) NLEAF++/STEM* .=STEMN 

(15) MAXL+[ /NLEAF 

(16) LEAF+((pSTEM),MAXL)p" ' 

(17) I+pSTEM 

(18] L:LEAF(I;.NLEAF(II]+'0123456789'(1+(-NLEAF(IJ)+LEAFW) 
(19) LEAFN+(-NLBAF(I]) +LEARN 


[20] +(0#r+I-1)/L 

(21) STEM+( STEN<0)+STEM 

(22] SL+(5 0 ¥((pSTEM),1)pSTEM),(((pSTEM),1)p'|") LEAF 

[23] +(0=pZ¥)/0_ 

C24] N+STEM. 1 

[25] +(N<pSTEM)/L1 

(26] +(N=pSTEM)/O 

(27) +(O=STEM[I])/L2 

(28) +0 

(29) £1:SLUN+1;SLCW3].' "J+" "' 

[30] +0 

(31] £2:S2(1;71+SL013].'0']+"* 
v 


PLO PAGE 5-43 


* TOWER 


v Z+TOWER X3I33M3N3XX3Y321;22;23;010 
1] aTOWER CHART (SKYSCRAPER DIAGRAM) FOR CONTINGENCY TABLE <X> 
(2] a.K PLOTTING 
(3] a.N CARINA HEISELBETZ 
C4] a.T 1988.4.25.2.17.37 


(s] Oro+1 
C6] "TOWER' CHECKSUBROUTINE ‘FIELD' 
(7) Z+(Ne"14pX) FIELD M+i+pX 
- (8) XX+100xxX41/,X 
(9] Z1+ 4+T0.1x0/,XX 


(10) 21+0fZ1 
C11] Z+((Z1,1+pZ)p' '),C1] Z 
[12] J+Ie1 
(13] Loop: 
C14) +(xx(I371<0)/L1 
C15] Z2+Z1+"1+7xI 
S (16) 23+(7xN-I+1)+17%d 
(17) +(xxL1371<5)/L2 
(18) Y+1+LO.1x S+XX(I37] Soe 
(19) Z(Z2-¥3Z3+ 1+.14J+ 1 4 p's” /' 
(20) 2(22;Z3+3]+'/' 
(21] Z0Z2-1¥3Z3+4]+' |" 
(22) 2(Z2-1¥-1;23+3]+" ° 
(23) Z(Z2+1-1Y3Z3+ 2+r.4I]+(Y,4)p' lee 
(24) Li: 
[25] +(M2d+J+1)/LOOP 
(26] +(W2I+I+J+1)/LOOP 
(27] +END 
(28] £2: 
(29] 2(2Z2323471415]+"/ /* 
(30) Z(Z2-13Z341S]+'/” /* 
(31) +21 
(32] END: 
(33) 2+z,[1] ' ' 
(34) 20 14pZ;9+117xM]+(17xM)+,(&@ 1 6 p'ABCDEF'), 6 16 p' 
(35) Ie1 
(36] LS: 
(37) 2(Z1+5+7xI-131+7xW-IJ+vI 
(38) +(W2I+r+1)/L5 
¥ 


FIELD 


VY ACN FIELD N3I3d 
(1] SUBROUTINE FOR <TOWER> 
[2] RETURN ‘GROUND' OR 'FIBLD' FOR THE TOWER CHART 


(3] A+((7*)+1,17xM)p" * 

ta] J+1+I+0 

(5) Lis 

6] AL14+7xN-13 (2x7) +.Nx17]+"_* 
C7] +(w2teI+1)/L1 

(8] £2: 

9] AU( 72H) 42-30 0417 x.M]+"/" 


C10] +((7x¥)2J+J+1)/L2 
v 


PAGE S-44 : PROGRAMMING 


* CHECKSUBROUTINE 


VN CHECKSUBROUTINE L;3B;EF 
[1] CHECK WORKSPACE FOR SUBROUTINES <L> USED BY FUNCTION <N> 
[2] a.K PROGRAMMING 
(3] a.7 1988.4.28.1.42.16 


[4] B+3=0NC E+'' ABOX ADB, ',L 
C5] +(4/B)/0 
C6] O+N,' SUBROUTINE WARNING' 


(7) O+apB,' ',(~B)/E 


VEQ 


v ReX VEQ Y;C 
(1] aR+1 IF VECTORS <X> AND <Y¥> ARE EQUAL. TRAILING BLANKS IGNORED 
[2] a.K PROGRAMMING 
(3] aSCALAR <X> OR <Y> TREATED AS 1-ELEMENT VECTOR 


(4) C+(p,X)[p.F 
(s] Re(CHX)A.=CtY 
v 
* ry 
vo eb aR 


(1] GLUE FUNCTION. RETURN LEFT ARGUNENT <L> 
[2] #.K PROGRAMMING 
(3) Y+L 

v 


* AIF 


VY -Y*LABEL AIF CONDITION 
{1] AIF STATEMENT. RETURN <LABEL(I]> IF <CONDITION(I]> = 1 
[2] #.K PROGRAMMING 
(3] a. 30 = 10 20 30° AIF 15=10 20 
[4] NOTE: IF <LABEL> IS ONE ELEMENT LONGER THAN CONDITION, THIS TRAILING 
[5] a ELEMENT MAY BE CONSIDERED THE LABEL OF THE ‘BLSE' STATEMENT 
(6) Y+((p,LABEL) pCONDITION,1) /LABEL 

v 
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* BAL 


Vo Z+N BAL J3B3M37;010 
[1] DISPLAY BALANCE (NESTING LEVELS) IN LINES <g> OF FUNCTION <N> 
[2] #.K PROGRAMMING-TOOLS 
[3] v.T 1988.5.2.20.5.36 
[4] n.¥ 1.0 / 184PR88 


(5) Oro+1 
6] "BAL' CHECKSUBROUTINE ‘ON BALANCE’ 
(7] a ----- LEFT ARGUMENT 


[8] +(* '#1*0pN)/ERR1 
C9] M+OCR N 
[10] +(0¢pM)/ERR2 
[11] a ----- RIGHT ARGUMENT 
12] geod _ 
C13] +((f/2)>~1414 pM) /ERRS 
(14) Z+ 01 p*' 
(15) £10: 
16] +(0=pg¢)/0 
(17] aGET FIRST ELEMENT OF J AS SCALAR 
(18) I+(.0) og 
(19) geled 
[20] Z+Z ON(N,'(',(¥Z),°]') ON( BALANCE M(1+Z3]) 
(21] aDON'T PUT SEPARATOR SPACE AFTER DISPLAY OF LAST LIWE 
[22] +(Oepg)/L10 
(23) ZZ ON’ ' 
[24] +£10 
[25] ERR1: 
(26) O+'BAL DOMAIN ERROR 
(27] O+'LEFT ARGUMENT <‘,(¥H),'> NOT CHARACTER ARGUMENT’ 
C28] +0,08x ‘*z" 
(29] ERR2: 
[30] O+'BAL DOMAIN ERROR’ 
(31) B+3=0NC WN 
(32) O+'<',N,'> IS ',(B/*LOCKED.'),(~B)/'NOT A FUNCTION.' 
(33) +0,08x *z' 
(34) ERR3: 
(35) O+'BAL INDEX ERROR' 
C36]_ O+'RIGHT ARGUMENT CONTAINS NUMBERS GREATER THAN HIGHEST LINE NUMBER 
¥ 1titpM 
(37] +0,08X 'z' 
v 
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* CHANGE 


Vv _Z+N CHANGE S3B;G 
[1] CHANGE NAME TO NEW TEXT IN FUNCTION <N> USING <S> = /NAME/NEW 
[2] a.K PROGRAMMING-TOOLS 
£3] a.7 1988.4.25.0.1.36 
[4] a.v 1.0 
(s] "CHANGE' CHECKSUBROUTINE 'SRN UNBOX' 
(6] G+OCR N 
[7] +(0epG)/ERR1 
8] Z+Orx OAv(1] agox(Qav(1] UNBOX G) SRN § 
(9] +0 
[10] ERR1: 
(11) O+'CHANGE DOMAIN ERROR‘ 
(12) B+3=0NC N 
(13) O+'<',,'> IS ',(B/'LOCKED.*),(~B)/'NOT A FUNCTION.* 
(14) +0,08x 'Z' 
v 


*  CHECKSIZE 


Vv -Y+CHECKSIZE LIST;DATA31;2;010 
[1] RETURN REPORT SHOWING SIZES OF OBJECTS IN <LIST>, SORTED BY SIZE 
[2] #.K PROGRANMING-TOOLS 
£3] 9. RML 
C4] a.T 1988.4.28.20.7.4 


(s) Or0+1 

(6) "CHECKSIZE' CHECKSUBROUTINE ‘VTYPE' 
(7) I+10 

[8] +(2=ppLIsT)/L10 

C9] LIST+'' aBOX aDB(,' ',LIST) 

10] £10: 

(11) +(OepL£IsT)/0 

(12) I+0 


(13] £20:+((1tpLIST)<J+I+1)/L20END 

C14] +((2=0NC LIST(L3])s2#0svo LIST(I3])/L204 

(15) +(3=Owc LIST(I;])/L20B 

{16] aSOME OTHER OBJECT. ASSIGN SIZE 0. 

(17) I+r,0 

(18] +£20 

(19] L204: 

(20) DATA+sLIST(I3] 

(21) Y+Z, 0.125 1 4 BLVTYPE DATA]xx/pDATA 

[22] +£20 

(23] £208: 

(24] aTHIS IS A CLOSE-ENOUGH APPROXIMATION FOR OUR PURPOSES 

(25] Y+r,+/' '#,0CR LIST(L;] 

(26] +Z20 

(27] L20END: ‘ 

(28] aCOMPUTE TOTAL LINE AND LABEL WITH ASTERISKS 

(29) Ie(+/1) 1 

(30) Lrst+'s',[1] LIST 

(31) aSoRT 

(32] I+VL 

(33] aREPORT 

(34) I+(¥((1tpLIST),1)pY(Z])." ',LIST(Z3] 
¥ 
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* FGL 


Vo Z+FGL N3B 
(1] aFIND GLOBAL REFERENTS OF FUNCTION <N> 
-[2] .K PROGRAMMING-TOOLS 


(3] "FGL' CHECKSUBROUTINE 'GLOBAL' 
C4] N«(N#" ')/N 
(5] Z+OCR WN 


(6] +(0€pZ)/ERR1 
[7] aN MUST BE EXACTLY THE NAME OF THE FUNCTION (NO BLANKS) 
8] Z+N GLOBAL Z 
{(9] +0 
(10] ZRR1: 
(11] O+'FGL DOMAIN ERROR 
(12) B+3=0NC N 
(13) O+'<',W,'> IS ',(B/"LOCKED.'),(~B)/'NOT A FUNCTION.' 
(14] +0,08x 'Z" 
v 


* FNLIST 


Vv s-FNLIST 231;27;010 
(1] FUNCTION LISTER. DISPLAY ALL FUNCTIONS IN LIST <I> 
[2] a.K PROGRAMNING-TOOLS 
(3] a.? 1988.5.15.12.41.17 
{4] #.¥ 2.0 / 20SBP85 
(5] An. 2.1 / O2MAY8S 
[6] a<Z> NANELIST OF FUNCTIONS 
(7] Oro+1 
(8) ‘FNLIST' CHECKSUBROUTINE ‘DISPLAYFUNCTION AROWMEN GRADEUP' 
9] Ie'' aBOX ADB,’ ',Z 
[10] +(~O¢pZ)/LO04A 
(11) a ----- GET ONL 3 AND REMOVE TOOLBOX FUNCTIONS 
(12) I+ONL 3 
(13) , [+(~Z AROWNEM '' ABOX ‘DISPLAYFUNCTION AROWMEN GRADEUP FNLIST ABOX 
ADB‘) /Z 
(14) Loa: 
[15] aSORT FUNCTION LIST 
(16) I+r('' GRADEUP T;] 
(17] a ----- DISPLAY ALL FUNCTIONS IN LIST 
(18) +0 
(19) Zis+((1+pZ)<I+[+1)/LEND 
{20] rr-Ocr rli3] 
C21] +(1 0 =Oep2Z)/L24,L2B 
(22) L2a: 
(23) O+z(13],' MOT DISPLAYABLE.' 
(24) +L2E4D 
(25) £28: 
[26] O+DISPLAYFUNCTION IT 
(27) +L2ND 
(28] L2END: 
[29] ADON'T PRINT TRAILING SPACES AFTER LAST FUNCTION 
(30] +(Z=1+pZ)/L1 
(31) G+ 21 p'' 
(32) +21 
(33] LEND: 
v 
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* GLOBAL 


v G+F GLOBAL M3B;L;W;X;010 
(1] GLOBAL REFERENTS IN CANONICAL FORM <M> OF FUNCTION <F> 
[2] a.K PROGRAMMING-TOOLS 
[3] a.N ROGER HUI 
(4) a.7 1988.4.30.18.24.1 
(5] a.v_1.0 / JUN80 


(6) Oro+1 

(7] G+',',M 

(8) L+G(13] 

C9] Le(-+/a\OLe' ")4L 


(10) X+O(T1tLrt sz") +L 

(11) LU(ipF)+(pX)-(pF)+(" "eX)xXi' t)e' ' 
(12) Bee\Gertt* 

(13) B+B¥V\B<Ge'a' 

C14) L+L,'303', (, OV\OBAGE':')/,6 

(15) W+' DABCDEFGHISKLMNOPQRSTUVWXY ZSABCDEFGHIYKLMNOPQRSTUVWXYZ40123456789' 
(16) G+L,(14+pG)+(,B)/,G 

(17) I+Ge1sW 

(18) G+14(XV10X)/E 

(19) P+ (~B+Ge1+W)/19G 

(20] X+1+[ /F+(F,1+9G)-0,F 

(21) G+((pF),X)p(,F°.>1X)\B/G 

(22] BerltpGe+(Glsile 10+) 46 

(23] 240: 

(24) | B+BCAW\G(B;X)) 

(25] +(xX+X-1)pL40 

(26) G+G(B;) 

(27] F+Le1+W ey 

(28) G+((B>F+.>10F)av/G# 10G) 46 

(29] G+(* 'V.86)/6 


* LooP 


vVLOOP X;I3M3N 

(1] aPERFORM COMPUTATIONS FOR EACH ELEMENT (OR ROW) OF <X> 
(2] #.K PROGRAMMING-TOOLS 

(3) M+(24(pX), 1 10x 

(4) N+ltom 

(5) I+0 

(6) Lis>(W<I+Z+1)/L2 

(7] # PUT COMPUTATIONS USING MII;] HERE 

(8] +21 

(9] £2: 
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VY -NLY+NLS NL NLC 
[1] ANAMELIST OF FUNCTIONS OR VARIABLES <NLC> WITHIN SPECIFICATION <NLS> 
[2] #.K PROGRAMMING-TOOLS 
(3] a.T 1988.4.21.2.46.0 
[4] +(OeVNAMES NLS)/NLERR1 


{s] NLY+QNL|NLC 

[6] SORT AFTER PICKING FROM OBJECTS 
(7) NLY+(NLY PICK NLS) #HLY 

(8) NLY+ADB NLY('' GRADEUP NLY;] 


[9] DO NOT REFORNAT IF AT LEAST ONE OF NLC IS NEGATIVE 
[10] +("1€xNLC)/0 

(11) NLY+'* MATDOWN NLY 

[12] +0 

(13] NLERR1:0+'NL DOMAIN ERROR* 


* QSTOP 


v +L QSTOP N 
ASET STOP VECTOR FOR FUNCTIONS <N> ON LINES <L>, BUT NOT COMMENTS 
a.K PROGRANMING-TOOLS 
a.T 1988.4.8.3.87.42 
‘QSTOP' CHECKSUBROUTINE ‘STOPTRACE' 
+((~OepL)A0#1t0pL) /ERR1 
Y+L STOPTRACE 'S',,' ',¥N 


Enlostenteslenlenlelend 
OIAUNEWNE 
eoucouas 


+0 
ERR1i:(+'STOP DOMAIN ERROR 
v 


* QTRACE 


VY I+L QTRACE WN 
[1] SET TRACE FOR FUNCTIONS <N> ON LINES <L>, OPTIONALLY AVOID COMMENTS 
[2] a.X PROGRAMMING-TOOLS 
(3] n.7T 1988.4.8.3.47.42 


(4) ‘QTRACE* CHECKSUBROUTINE ‘STOPTRACE' 
[5] +((~OepL)s0#1t0pL)/ERR1 

ra I+L STOPTRACE 'T',,* '.¥H 

7 


70 
(8] ERR1:0+'TRACE DOMAIN ERROR‘ 
v 


SHARES 


Vv -Y+SHARES 
(1] RETURN NAMES OF SHARED VARIABLES 
(2] #.K PROGRAMMING-TOOLS 
(3] Y+(2=Qsvo OWL 2)/C1] OWL 2 
* , 
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* SORTL 


Y  Z+SORTL N3B3G 
[1] aSORT LOCAL NAMES IN HEADER OF FUNCTION <N> AND FIX RESULT 
[2] #.K PROGRAMMING-TOOLS 
(3] a.T 1988.5.5.21.21.31 
C4) "SORTL' CHECKSUBROUTINE ‘SORTLOCAL' 
[5] G+O0CR N 
[6] +(0epG)/ERR1 
(7] Z+OFX SORTLOCAL & 
{8] +0 
(9]_ ERR1: 
{10] O+'SORTL DOMAIN ERROR‘ 
(11) B+3=0NC N 
(12] O+'<',N,'> IS ',(B/'LOCKED.'),(~B)/'NOT A FUNCTION. 
[13] +0,08x 'Z' 
v 


STOPTRACE 


VY Y*L STOPTRACE NAMES;CODE;ENAME;I;LL;MAT;N30I0 
(1] SUBROUTINE FOR QSTOP AND QTRACE 
(2] a.K PROGRAMMING-TOOLS 
(3] a. RML 
C4] #.f 1988.4.23.14536.24 
{5] #.¥ 1.2 / 28DEC83 
[6] #.¥ 2.0 / O8APR88 / LEFT ARG CHANGED: NEGATIVE MEANS NO COMMENT TRACE 


7] a LUI] POSITIVE MEANS TO TRACE LINE L(I) > 
[8] a LUI] NEGATIVE MEANS TO TRACE IF LINE L(I] IS NOT A COMMENT 
(9] ak 0 MEANS TO REMOVE TRACE 
C10) ak EMPTY DEFAULTS TO NEGATIVE NUMBERS FOR ALL LINES 
[11] a 1tNAMES IS CODE -- 'T' OR 'S', FOR TRACE OR STOP 
a 


14NAMES IS NAMELIST OF FUNCTIONS 

(13) + Qfo+1 

(14] aFUNCTION IS TRACE OR STOP? 

(15) CODE+1+NANES 

(16) ENAME+(((CODE='T')/* TRACE"), (CODE='S")/'STOP') 
(17] aRIGHT ARGUMENT 

(18) NAMES+'' ABOX ADB 1+NAMES 

[19] +(0¢pNAMES)/0 

[20] +(~34.=0NC NAMES) /ERR1 

(21] aLEFT ARGUMENT 

(22) Lek 

(23] +0 

[24] L£10:+((1+pNAMES)<I+I+1)/0 

(25) MAT+OCR NAMES(I;) 

[26] NeitpMAT 

(27] aL IS EMPTY? DEFAULT TO ALL NEGATIVE LINES 

(28) EL+((0=pL)/-1N-1), (O#pL)/L 

(29] wIF LL(L] IS NEGATIVE AND |LL[I] IS COMMENT LINE, DON'T TRACE IT. I.E. 
REMOVE FROM LIST 

[30] aNOTE THAT LINE 0 (HEADER) NEVER IS A COMMENT LINE 
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[31] LL+(~(71=*LL)a( (LL) €(*a'=MATL31))/71418) / LL 
[32] aANY OTHER NEGATIVE NUMBERS ARE NON-COMMENT LINES, SO TRACE ANYWAY 
(33] I+LL+|LL 
[34] mDUPLICATE LINE NUMBERS DON'T MATTER. 
[35] aWEXT LINE BECOMES SOMETHING LIKE: TAXXXX+1 2 3 
(36] 2CODE,'A* ,NAMES(I31,'+',¥LL 
(37] +Z10 
[38] ERR1: 
[39] O+ENAME,' DOMAIN ERROR’ 
Ko] «CANNOT FIND FUNCTION(S) = ',ADB,' ',(3#0NC NAMES) /NANES 
4ij > 
v 


* VIYPE 


v ReVTYPE X 
[1] aGIVE ‘TYPE’ OF VARIABLE <X>, WHERE 1=LOGICAL,2=CHAR,3=INTBGER,4=REAL 
(2) a.B 4=VTYPE 10.556 
(3] a.K PROGRAMMING-TOOLS 
C4] a.? 1983.10.31.17.40.29 
(5] a.¥ 1.0 / 12FBB82 
(6] WARNING: THIS IS AN IMPLENENTATION-DEPENDENT FUNCTION 


(7) I+64+0pX 
{s] R+70000 
(9) R+Q)W4+70000 


(10] X+128+Y 
(11) R+0.125xR-OWA+70000 
(12) Re 123 4 S[1 8 32 64 iF) 
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| RESHAPE | 


----> 


* ARRAY 


Y -R*DEL ARRAY STR;MASK;P;SHAPE;0I0 

] AGENERAL VECTOR RESHAPE. RESHAPE VECTOR <STR> USING DELIMITERS <DEL> 
J] a.E 2.3 4 =p'/,* ARRAY ‘'FRED,2,XX/JOE,,222' 
1] #.K RESHAPE 

] #.N ANDREAS WERDER 

J] a.T 1988.4.8.3.11.42 

J] #.V_1.0 / DEC 79 

] Oro+o 

] R+O,(,DEL)*.=STR 

(9] P+v¥((~1itpR)+1),([0] R 

(10) Re+\R,[O]~("1, 1tpR) +P 

(11) ReR-[\Px 0 1 40,8 

[12] SHAPE+1+[/R 

(13) MASK+(1*/SHAPE) €SHAPELR 

(14) Re((-pSHAPE)+1)+SHAPEPMASK\' ',STR 


C 
{2 
(3 
Ca 
Cs 
(6 
(7 
(8 


* BOXF 


v -Y«W BOXF V3;M;0I0 
[1] Box FIELDS. <Y{I;]> IS A PIELD OF VECTOR <V> SPECIFED BY WIDTH <W(I]> 
(2] #.& S 5 3 BOXF 'APPLEBETTYCAT' ‘ 
[3] #n.K RESHAPE 
Ca] 9.7 1988.3.30.0.22.37 
(5] a.V 1.1 / 14J0L83 


(6) Oro+1 

(7] ENSURE V HAS +/W ELEMENTS, ELSE ALGORITHM FAILS. 
(8] Ve(+/W) 47 

{9] M+ /W 


(10) Y¥+( (pW) M)p(,W*e.>(1.M)-DI0)\V 


Box1 


Y -R*SEP BOX1 X;LEN;M;POS;0I0 
{1] RETURN MATRIX <R> FROM VECTOR <X> DELIMITED BY SEPARATOR <SEP> 
(2] a. RESHAPE 
[3] a.7 1985.9.22.11.21.22 
[4] a.v 1.1 / 1390L83 
[5] aWNOTE: <SEP> IS A ONE-CHARACTER VECTOR SPECIFYING SEPARATOR CHARACTER 


(6] a BOX1 ALWAYS FILLS WITH BLANK/ZERO 
(7) Oro+1 
8] R+ 0 0 pX 


C9] +(0epx)/0 

[10] nSEP=SEPARATOR CHARACTER; DEFAULT IS BLANK/ZERO 

(11) SEP+(1 0 =OcpSEP)/(1tO0pX) ,1+SEP 

[12] nAPPEND SEPARATOR ONLY IF NO ENDING SEPARATOR 

(13] nOWE TRAILING SEP (E.G. 'APPLE/BETTY/CAT/') DOES NOT MAKE EXTRA LINE 

(14) X+X, (SEP#~1+X)/SEP 

(15) POS+(X=SEP)/1pX 

(16) M+[ /LEN* 1+P0S-0, 1+POS 

(17] R+((pLEN) ,M)p(,LEN* 21M) \(X#SEP)/X 

(18] aNOTE: 

[19] a R+(V/LENe.21M)/[1]R WILL DELETE ‘EXTRA' ROWS CAUSED BY MULTIPLE SEP 
v 


‘A MATRIX <M> 


RESHAPE 

* DIMENSION 

Vv -R©RCM DIMENSION M3C3J3K3L3;2;010 

[1] aCOMPUTE (N-1) DIMENSION ARRAY FROM COORDINATE/DAT. 
(2] #.K RESHAPE 

[3] a.N DAN KING 

(4] a.T 1985.5.23.13.25.53 

[5] a<M> HAS (N-1) ATTRIBUTE COLUMNS AND 1 DATA COLUMN 
(6) oro+1 

[7] +(2>71+pM)/ERR1 

[8] +((1tpRCM)# 1+ 1+pM) /ERR2 

(9] C+1 

(10) Z+ 0 1 pO 

(11) Do: 

(12) M+(ML3CJeRCM(C3]) 4M 

13] J+RCMLC3 1 ME3C) 

C14] a = 

(15) J+(“2t 11 spd) od 

(16) Z+(“2t 1:1 ,pZ)pzZ 

(17) K+f/(p7)02), (9221 

(18) Z+(((1tpZ) .K)4Z) CAN (itpd) Kk) td 

C19} a _ . 

(20) +((~1tpM)21+C+C+1)/D0 

(21) ZeZ-1 

(22) Z(1tp23]+Z(itpZ;]+1 

(23) J++ /RCM#0 

(24) KeJiZ 

[25] L+(x/J)p0 

(26) LUK]+(0, 14714pM)+M 

(27] ReJoL 

[28] +0 

[29] BRR1: 

(30] O+'DIMENSION LENGTH ERROR’ 

(31) O+'ZLAST COORDINATE OF RIGHT ARGUMENT < 2' 
(32] +0,08x 'R' 

(33] ERR2: 

(34) (+'DIMENSION DOMAIN ERROR' 

(35) O+'LEFT AND RIGHT ARGUMENTS NOT CONFORMABLE.* 


(36) 
v 


+0,08X 'R* 
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* DUPARRAY 


v -Y*A DUPARRAY M;NEWARRAY ; SHAPE ;QI0 
[1] DUPLICATE ARRAY <M>. DUPLICATE <A[1]> TIMES ALONG COORDINATE <A(2]> 
[2] a.K RESHAPE 
[3] a.N RML 
(4] a.T 1988.3.29.23.43.29 
(5] a.V 1.0 / 14FEB84 
[6] A(2] MUST BE IN THE RANGE (1,pp9M) 
{7] aNOTE: THE ALGORITHM CONSISTS OF APPLYING THE REPARRAY ALGORITHM TO 


‘(8] A (1,9M)pM AND THEN RESHAPING THE RESULT. 
(9) Oro+1 
[10] "DUPARRAY' CHECKSUBROUTINE 'REPARRAY' 


(11] aDEFAULT A[2] TO LAST COORDINATE 
C12] A+2+4,ppM 
[13] +(~(15402])4402]sppM) /ERR1 
C14] NEWARRAY+A REPARRAY(1,pM) pM 
(15) SHAPE+x/(pM),(1.5](AL2]#1ppM)+(AL2J=1ppM)xAL1] 
(16) Y+SHAPEpNEWARRAY 
[17] +0 
(18] ERR1i: 
(19) O+'DUPARRAY DOMAIN ERROR' 
(20] O+'COORDINATE SPECIFICATION = ',(¥A[2])," OUTSIDE RANGE 
(1,',(¥ppM),")" 
(21) +0,08x 'Y' 
sf 


DUPARRAY1 


v= Y+N DUPARRAY1 M 
[1] DUPLICATE ARRAY <M>. DUPLICATE <N> TIMES ALONG COORDINATE 1 
[2] #.K RESHAPE 
(3] 9.N RML 
(4] 9.¥ 1.0 / 10FEB84 
(5] SIMPLIFIED VERSION OF DUPARRAY WHICH HANDLES FIRST DIMENSION ONLY 
C6] Y+((Nx1+pM) ,14+9M)p(N, pM) pM 


* MATRIX 


v-Y*MATRIX X 
[1] RESHAPE ANY ARRAY <X> (RANK 0 - W) TO A MATRIX 
[2] n.X RESHAPE i 
(3] Y+((x/"1+ 1 1 ,pX), 141,pX) px 
v z 
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* REPARRAY 


Vv -YeA REPARRAY M;C;N;SHAPE;X;010 
[1] ®REPLICATE ARRAY <M>. REPLICATE <A({1]> TIMES ALONG COORDINATE <A(2]> 
[2] a. RESHAPE 
[3] a.N RML 
(4] a.T 1988.3.29.23.43.44 
[5] a.¥ 1.0 / 10FEB84 
[6] NOTE: EACH 'SLICE' OF THE ARRAY ALONG THE SPECIFIED COORDINATE 
[7] A IS REPLICATED <A(1]> TIMES 
(8) Oro+1 
(9] DEFAULT TO LAST COORDINATE 
{10] A+2+4, 99M 
[11] +(~(154(2]) 4402] sppM) /EBRR1 
(12) N+A(1] 
13] c+a2) 
(14) X+(C4+1), ((C+1)#11+99M)/11+99M 
(15) SHAPE+( pM) (C#1ppM)+(C=1ppM) xW 
(16] Y+SHAPEpX&(N,pM) pM 
(17] +0 
(18] BRR1: 
(19) Q+'REPARRAY DOMAIN ERROR‘ 
[20] +"COORDINATE SPECIFICATION = ',(¥A(2]),' OUTSIDE RANGE 
(1,',(¥ppM),")" 
(21] +0,0ex 'y' 

v 


o 


REPARRAY1 


v Y+d REPARRAY1 M;C;N;0I0 
[1] REPLICATE ARRAY <M>. REPLICATE <A(1]> TIMES ALONG COORDINATE <A(2}> 
(2] a.K RESHAPE 
(3] A.W RML 
C4] a.7 1985.9.20.20.17.24 
(5] a.V 1.0 / 10FBB84 
{6] SIMPLIFIED VERSION OF REPARRAY RESTRICTED TO RAWK 2 ARRAYS 


(7) O10+1 
{8] DEFAULT TO LAST COORDINATE 
(9) A+2t+A,2 


(10) N+AC1) 

(11) c+A(2] 

(12] aREPLICATE COORDINATE 1 (ROWS) OR COORDINATE 2 (COLUMNS) 
(13] +(C= 1 2)/L1,L2 

(14) £1: 

(15) Y+((Nx(pM)(1]),(pM)[2])p 2 1 3 Q(N, pM) pM 
[16] +0 

(17) £2: 

(18] Y+((pM)C1],4x(pM)(2])p 3 1 2 &(N,pM) pM 
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* UNBOX 


v-R*C _ UNBOX X;B;CHARS;FILL;SEP;0I0 
[1] aUNBOX MATRIX <X>. REMOVE TRAILING <C(2]>, DELIMIT VECTOR <X> BY <c{1]> 
[2] a.£ '/* UNBOX 3 Sp'APPLEBETTYCAT ' 
[3] a.K RESHAPE 
C4] a.T 1988.4.6.1.25.34 
[5] a.¥ 1.0 / JUL83 
[6] aCli]=SEPARATOR CHARACTER (DEFAULT IS BLAWK/ZERO) 
£7] aCl2]=FILL CHARACTER (DEFAULT IS BLAWK/ZERO) 
[8] REMOVE TRAILING CHARACTER C(2] FROM THE END OF EACH LINE OF MATRIX 
[9] THEN DELIMIT END OF EACH LINE WITH Cli] AWD RETURN A VECTOR 
[10] O10+1 
(11) R+OpX 
[12] +(0=p,x)/0 
[13] aASSIGN DEFAULTS TO SPECIAL CHARACTERS 
(14) CHARS+C,(p,C)+2*0pX 
[15] aGET SEPARATOR (T0 BE PUT AT END OF EACH ROW) 
(16) SEP+(10)p1tCHARS 
(17] GET FILL CHARACTER (TO BE REMOVED FROM END OF EACH ROW) 
(18) FILL+iti+CHARS 
(19) RY 
[20] aCOMPUTE 0 FOR TRAILING FILL IN BACH ROW AND APPEND 1 FOR SEP 
C21] B+(OV\OR#FILL) 1 
[22] nAPPEND LINE SEPARATOR TO END OF EACH ROW 
(23) R+R, SEP 
[24] aREMOVE TRAILING FILL (BUT NOT SEPARATOR) 
[25] R+(,B)/,R 
v 


® aBOX 


Vv -Y#CHARS ABOX X;FILL;LEN;M;0F;P0S;S;SEP;X;010 

[1] a'BOX' VECTOR <X> USING SEPARATOR AND FILL CHARACTER <CHARS> 

[2] #.£ (3 5p'APPLEBETTYCAT ') = '/' ABOX 'APPLE/BETTY/CAT' 

(3] #.K RESHAPE 

C4] a.T 1988.4.28.1.20.21 

[5] a.V 2.0 / 8JUL83 

(6] aCHARS(1]=SEPARATOR; CHARS(2]=FILL; DEFAULTS ARE BLANK/ZERO 

tH al MATRIX CORRESPONDING TO A VECTOR DELIMITED INTO LOGICAL FIELDS 
I0+1 

(9] Y+ 0 0 px 

[10] +(0epx)/0 

(11) CHARS+CHARS , (x/pCHARS)+2*0pX 

[12] aSEPARATOR 

(13) SEP+CHARS(1] 

(14] FILLER 

C15] FILL+CHARS(2) 

[16] aADD SEP TO END IF NECESSARY 

(17) X+X, (SEP#~1+X)/SEP 

[18] aLENGTas 

(19] POS+(X=SEP)/1pX 

[20] M+[ /LEN*« 1+POS-0, 1+P0S 

(21] noFFSETS 

(22) OF+(LEN+1)°.L.M 

[23] aSTARTING INDICES 

C24) S+(M,pLEN)p0, 1+P0S 

[25] aREPLACE SEPARATOR WITH FILL CHARACTER 

(26] X((X=SEP)/1pX]+FILL 

[27] aRETURN MATRIX 

(28] Y+X(S+0F] 
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* BP 


v Y+BP X 
[1] SEARCH FOR 'BREAK POINTS' BASED ON BEGINNING OF SEQUENCES IN <X> 
[2] A.D 18JUL83 
(3] a.K SEARCHING 
(4]  aTREAT VECTOR AS Nxi MATRIX (EACH ELEMENT IS A ROW) 
(5] X«(2t(pX), 1 1)eX 
(6) Y+1, 1+v/X#10¥ 


* FINDCOORDS 


Vv Z*M FINDCOORDS S;COORD;MATCH 
] FIND COORDINATES OF SEQUENCE <S> IN MATRIX <M> 
] a.K SEARCHING 
J] a.T 1988.4.26.1.32.35 
] MATCH+(,S)*.= 
i] COORD+A/ (Q(® 14+ pMATCH) p-DIO-19,5)OMATCH 
J 2+1110+8&( pCOORD) T-DI0-( ,COORD)/1p,COORD 


* FINDUT 


vs -Yed FINDUT B;Z 
[1] FIND UNIQUE TRUNCATION. FIND POSITION OF TRUNCATION <B> IN VECTOR <A> 
(2] #.£ 4=' APPLE BETTY CAT BOOP' FINDUT 'BO' 
(3] #.K SEARCHING 
[4] a.W J.P. BENYI 
[5] a.¥ 1.0 
[6] a<¥> = 1: NOT UNIQUE; =0: NOT FOUND; >0: INDEX OF <B> IN <A> 
[7] a<d> MUST CONTAIN FIELDS EACH PRECEEDED BY A BLANK: ' XXX XXX XXXXX XX' 


(8) B+,B 
(9] Z+(1-pB)+A 
[10 Z+(Z=1+B)/rpZ 


] 
(11) Z+(ALZ+Y*+_1]=" ')/2 

5] Z+(A[Ze.+ 1416B)4.=B)/Z 
[13] +(1<pZ)/0 
C14] Ye" '+,2(1tZ)td 


* FIRST 


Vv: YeFIRST X 

[1] FIRST OCCURRENCE OF ELEMENTS IN VECTOR OR MATRIX <X> 
(2] a.K SEARCHING 

[3] a.T 1988.4.7.2.24.59 

(4] +((1 2 =ppX),1)/L10,L20,ERR1 

(5] £10: 

(6) Y¥«(XiX)=1pX 

{7] +0 

(8] £20: 

(9] Yev/<}Xa,=QX 


+0 
(11] BRR1:0+'FIRST RANK ERROR‘ 
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C4] 
(s] 
(6] 
(7] 
(8) 
(9) 
(10) 
(11) 
(12) 
(13) 
[14] 
(15) 
(16) 
(17) 
(18) 
(19) 
{20] 
(21) 
(22) 
[23] 
431 
(24) 
(25) 
(26) 
(27) 
(28) 
(29] 
(30) 
(31) 
(32) 
(33) 
(34) 
[35] 
(36) 
(37) 
(38] 
[39] 
C40] 
(41) 
C42] 
(43) 
C44] 
(4s) 
(46) 
C47) 
C48] 
C49) 
(s0] 
{51] 
[52] 
[53] 
(54) 
{ss] 


PICK 


Y+M PICK V3B;I;MV3R3TC;TF;TOKEN;0I0 
ASELECT (PICK) ROWS FROM CHARACTER <M> USING NAME SPECIFICATION <V> 
a.E ('' ASBOX ‘APPLE BETTY CAT DOG FARM FUNNY ZEBRA‘) PICK 'A-C 2** 
a.K SEARCHING 
N RML 
T 1988.5.12.21.11.46 
V1.8 / 23cAN84 
v2.0 / 26NOv8S 
a.V 2.1 / O6MAY88 (REWRITTEN, USE ENHANCED NAME SPECIFICATIONS) 
a<M> CHARACTER MATRIX OF NAMES 
a<V> CHARACTER VECTOR CONTAINING NAME SPECIFICATIONS 
Oro+1 
‘PICK' CHECKSUBROUTINE 'VNAMES WILDCARD RANGE' 
+(~(ppV)« 0 1)/ERR10 
aMV IS NEEDED IN ONE OF THE EARLY ERROR MESSAGES 
MV+'' ABOX V+ADB V 
+(2#ppM) /ERR20 
Y+(1+pM)p0 
+((OepM) ,0€pV)/0 
ACOMPUTE CLASS OF, EACH NAME SPECIFICATION IN <MV> 
TC+VNAMES V 
+(0eTC)/ERR30 
ATRANSLATE A TOKEN CLASS INTO ITS POSITIVE EQUIVALENT 
Re(i 12 21 121 212 2 13 31 131 3 ,7C)C(41 412 421 4121 4212 42 413 
4131 43 ,7C).TC) 
aFOR EACH TOKEN IN <MV> REMOVE TRAILING BLANKS, COMPUTE TILDE 
AFLAG, REMOVE TILDE, GET CORRESPONDING COMPRESSION VECTOR. 
I+0 
L20:+((1tpMV)<I*I+1)/0 
TF+'~'=1+TOKEN+ADB NV(I;] 
TOKEN+TF+TOKEN 
+(RLIJ= 1 12 21 121 212 2 13 31 131 3)/(6pL304),(4pL30B) 
L304:B+M WILDCARD TOKEN 
+L30 
L30B:B+M RANGE TOKEN 
+130 
130: 
QTREAT <B> DIFFERENTLY DEPENDING ON <TF> (TILDE FLAG) 
+(1 0 =TF)/L50A4,L50B 
ATILDE SPECIFICATION. TURN OFF A SUBSET OF THE ITEMS ALREADY PICKED. 
ABUT IF FIRST ONE, START WITH UNIVERSE. 
LSOA:Y+(YVI=1)x~B 
>L20 
aNO TILDE. ADD TO SUBSET OF ITEMS ALREADY PICKED. 
LSOB:Y+YVB 
+L20 
ERR10: 
O+'PICK RANK ERROR' 
O+'RIGHT ARGUMENT DOES NOT HAVE RANK O OR 1' 
+0,0ex 'y' 
BRR20: 
O+'PICK RANK ERROR' 
(+'LEFT ARGUMENT DOES NOT HAVE RANK = 2° 
+0,0zx 'Y' 
BRR30: 
O+'PICK DOMAIN ERROR' 
Q+'INVALID ITEMS ( ',(ADB,' ',(TC=0)/MV),' ) IN RIGHT ARGUMENT’ 


[56] +0,0zx 'Y' 


v 
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(14) 
(15) 
[16] 
(17) 
(18) 
(19] 
[20] 
(21) 
[22] 
(23) 
C24] 
(25) 
(26) 
(27] 
(28] 
(29] 
[30] 
(31) 
(32) 
33] 
(34) 
(35] 
[36] 
(37) 
(38) 
(39] 
C40] 
(41) 
(42) 
C43] 
C44] 


(45) 
v 


PICKN 


Y+V PICKN N;B;1I;MV3WR;R;T3X;010 
aPICK NUMBERS FROM <N> USING POSITIVE INTEGER SPECIFICATION <¥> 
a.E 1111000011 = '1-4 9-' PICKN 110 
a.K SEARCHING 
a.T 1988.4.24.21.56.27 
a.V 1.0 23N0V83 / USES VFPI 
a.V 1.1 13N0V85 / USES VPIS 
a<N> IS VECTOR OF NUMBERS 
a<V> IS POSITIVE INTEGER SPECIFICATION AS DEFINED BY <VPIS> 
a<Y> IS COMPRESSION VECTOR FOR <N> 


Oro+1 

"PICKN' CHECKSUBROUTINE 'VPIS' 
NR+pN+,N 

MV+'' ABOX V+aDB,' ',V 

Y+NRpO 


+((OepN) ,0€pV)/0 
AFIND TOKEN CLASS <R> OF EACH SPECIFICATION 
ReVPIS V 
>(0eRL31])/ERR10 ' 
aFOR EACH TOKEN, GET THE COMPRESSION VECTOR 
I+0 
L20:+( (pR)<I+I+1)/0 
+(RUI32]= 1 12 21 2 121)/BXACT, PREFIX, SUFFIX ,ALL,RANGE 
EXACT: ANUMBER 
B+N=2MV[I3] 
+ENDLOOP 
PREFIX: aN- 
B+nze(MV(I;]#'-')/MV(T3) 
+ENDLOOP 
SUFFIX: a-N 
B+Nso(MV([I;J#*-")/MV[I3] 
+ENDLOOP 
ALL: na - ALL THE MATRIX 
B+NRp1 
+ENDLOOP 
RANGE: aN-M 
X+2B\ (BeMV(I; ]#'-*)/MVLI3] 
B+(X[1]sN)ANSX[2] 
+ENDLOOP 
ENDLOOP:Y+YVB 
+120 
ERR10: 
O+'PICKN DOMAIN ERROR‘ 
T+ADB,' *,(~R(31]) ¢MV 
Q+'INVALID ITEMS (',T,') IN LEFT ARGUMENT.* 
>0,0ex 'Y' 
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RANGE 


v Y+M RANGE S;CS;LH;N;NN;X;0CT;010 
(1] PICK NAMES IN MATRIX <M> USING ‘RANGE’ SEARCH SPECIFICATION <S> 
[2] a.k SEARCHING 
(3] a.T 1988.5.7.19.23.17 
C4] .v 1.0 / O6MAY8S 
[5] ASSUME <S> BELONGS TO SET OF VALID SPECIFICATIONS (A-2, A-, -2) 
[6] #<S> CAN CONTAIN ? SEARCH CHARACTER 
[7] Oro+1 
(38) Ocr+o 
(9]  AASSUME COLLATING SEQUENCE <CS> INCLUDES ALL CHARACTERS IN NN AND M. 
[10] aBLANK WILL ALSO APPEAR AS A PAD CHARACTER AND WE SET IT SO IT 
(11] alS FIRST IN COLLATING SEQUENCE. 
(12) cs+' 
ABCDEFGHIJKLMNOPQRSTUVWXY Z SABCDEFGHISKLMNOPQRSTUVWXYZ401234567890)' 
[13] THE LOWEST AND HIGHEST CHARACTERS IN COLLATING SEQUENCE 
C14] L#+CS(1,pCS] 
[15] n<WN[1;]> = FIRST PART OF RANGE SPECIFICATION, <NN(2;]> = SECOND PART 
[16] nZ.G. IF <S> IS ‘AX-D', WN[1;]='AX' AND NBL 'D* 
[17] a<S,'-'> ENSURES THAT NN HAS 2 ROWS IF <S>= 
(18] NW+'-' aBOX S,'-" 
[19] aBNSURE THAT M_HAS AS MANY COLUMNS AS WN 
[20] M+((1tpM),(~1tpNN)[~1+pM)+M 
[21] REPLACE BLANK IN LOW LIMIT WITH LH(1). 
[22] mREPLACE BLAWK IN HIGH LIMIT WITH LH(2). 
[23] aTHIS ALSO ASSIGNS DEFAULTS TO EMPTY LIMITS. 
[24] a'?* IN RANGE SPECIFICATION (E.G. A?-B, ?-, BTC.) IS ALLOWED BUT 
(25] mESSENTIALLY IRRELEVANT. IT IS REPLACED BY LOW OR HIGH CHARACTER IN 
[26] COLLATING SEQUENCE, DEPENDING ON IF IT APPEARS IN THE FIRST OR SECOND 
[27] wPART OF THE RANGE SPECIFICATION, RESPECTIVELY. 
(28) 9 WWE1s)+(LaC1 1),WNC13))C(* 2°, NNC13]).WNL13 7] 
(29) WNC2;J+(LaC2 2],WNC23))C(* 2°, WWL23]).NN[23]] 
(30] aCOMPUTE NUMERIC VALUES UP TO PRECISION OF SPECIFIED PHRASES 
(31) I+ (pCS)18CSiNN 
[32] N+(pCS)18CSiM[ 31 1+pNN) 
[33] Y+(X[1]sW)aWsx(2] 


* SEARCH 


Vv -Y#M SEARCH S;C;1;X;010 
(1] BOOLEAN VECTOR WHERE SEARCH SEQUENCE <S> IS FOUND IN ROWS OF MATRIX <M> 
(2] #.K SEARCHING 
(3] a.T 1988.5.7.19.23.47 
C4] a.¥ 1.0 / O6MAY8S 


C5] Oro+1 

C6] S+,S 

C7] C+(“1tpM) [ps 

(8] X+((1tpM),C)+M 

(9] T+(11+(pX)[2]-pS)*.+ 1419S 


[10] aPICK ROWS THAT CONTAIN <S> 
(11) Yev/X(31]4.=5 
v 


SEARCHING ; PAGE 5-61 


Vo Y¢V SS S;A;F;R;0I0 
[1] aSEARCH FOR ALL LOCATIONS OF SEQUENCE <S> IN VECTOR <V> 
[2] a.£ 1 12 ='THE CAT IN THE HAT' SS 'THE' ? 
[3] a.K SEARCHING 
C4] a.? 1988.4.24.23.42.48 
[5] a.¥ 1.0 / 21FEB83 
[6] a.V 1.1 / 21A4PR88 (QJ0 ADDED TO HEADER, RANK CHECK ADDED) 
C7] O7o+1 
(8] ALEFT ARGUMENT 
[9] +(1#ppV)/ERR1 
C10] S+,S 
(11) Feos 
(12) A+pV 
[13] ¥+10 
C14] +(F>A)/0 
(15] +(F=0)/0 
(16] +(1 0 =F=1)/L1,L2 
(17) La: 
(18) Y+(S=V)/1A 
{19] +0 
[20] £2: = 
(21) ReSA.=(0,1-F) 4 ("141 F)O(F,A) pV 
(22) Y+R/.pR 


(25) O+'SS RANK ERROR‘ 


* SSN 


Vv Y+TEXT SSN S$;B;0I0 
ASEARCH FOR OCCURRENCES OF THE NAME <S> IN VECTOR <TEXT> 
a.E 1 11 = 'A+A3xVARAtAX2' SSN 'A' 
a.K SEARCHING 
a.N RML 
a.T 1988.4.21.0.58.3 
a.TEXT 1.2 / 2MAY88 / CHANGED NAME TO SSN, USING SUBROUTINES 
Or0+1 
"SSN" CHECKSUBROUTINE 'SS* 
Y+10 
+(0€pS)/0 
+(" 'eS)/ERR1 


PEE WRIMDH EON 
epee arerrerrerrarrerrerrerrerrer, 


] 
i 
B+TEXT « '()ABCDEFGHIJKLMNOPQRSTUVWXY Z AABCDEFGHIJKLMNOPQRSTUVWXYZA0123456789' 
] ANOTE: <Y¥> WILL NOT CONTAIN INSTANCES OF OVERLAPPING TEXT. BECAUSE <S> 
} aDOES NOT CONTAIN BLANKS, OCCURRENCES OF ' ',S,‘ ' WILL NOT OVERLAP. 
] nIN OTHER WORDS, NAMES CANNOT OVERLAP. 
] Y+(' ',(B\B/TEXT),' ') SS * ',S,' ' 
1 +0 

1 ERR1i: 

] O+'SSN DOMAIN ERROR‘ 

] O+'SEARCH SEQUENCE (',S,') CONTAINS BLAWKS.' 

] +0,08x 'Y" 


eetotelelaln late Mie lalelnlalalnlelalaleted 


NNBERR BREE 
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* WILDCARD 


Y BM WILDCARD S3C3137;NAME;WP;X;0I0 
[1] PICK NAMES IN MATRIX <M> USING 'WILDCARD' SEARCH SPECIFICATION <S> 
[2] a.k SEARCHING 
[3] #.T 1988.5.7.19.23.17 
[4] a.¥ 1.0 / O6MAY88 
[5] a<S> CAN CONTAIN ? SEARCH CHARACTER 


C6] Oro+1 
(7) S+,S 
[8] ASSUME <S> IS ONE OF THE FOLLOWING --- * *A® *A Ax Atd A 
(9] 
S(( tet aces), (224/tet2S), (i ets1ts),(tet= 14S), ('#' eS) 1) /ALL MID, SUFF,PREF,LR 
EXACT 


[10] ALL: aEVERYTHING PHRASE: S=* 
(11) B+(1tpM)p1 
[12] +0 
[13] MID: aSOMEWHERE IN BETWEEN PHRASE: S=*NAME* 
(14) NAME+1+"1+5_ 
(15] X+((1tpM) , (~1+pM)T pNAME) +H 
(16] I+(11+(pX)([2]-pNAME) ©. + 1+. pNAME 
(17] +250 
(18] SUFF: nSUFFIX PHRASE: S=*NAME 
(19) NAME+1+S 
[20] aRIGHT JUSTIFY, THEN TAKE LAST (pNAME) COLUMNS 
(21) X+((1tpM) ,-pNAME)+(-+/A\O" '=M)OM 
(22) I+(1,pNAME) p1pNANE 
(23] +250 
(24] PREF: aPREFIX PHRASE: S=NAME* 
(25] NANE+ 145 
(26) X+((1+pM),pNAME)+M 
(27) I+(1, NAMB) p.pNANE 
(28] +250 
[29] EXACT: _nZXACT PHRASE: S=NANE 
[30] C+("1tpM) [ps 
(31) NAME+CtS 
(32] I+((1tpM) ,C)+M 
(33) I+(1,C) pre 
(34) +250 
(35] £50: 
[36] aIF QUESTION MARK IN <NAME>, REPLACE ALL NON-BLANKS IN CORRESPONDING 
(37] ACOLUMNS WITH '?'. ALGORITHM WORKS FINE EVEN IF NO '?' PRESENT. NOTE 
(38] aTHAT <NAME> AND <X> ARE CONFORMABLE IW LENGTH AT THIS POINT. X IS 
(39] AALWAYS A RANK-4% ARRAY AFTER THE NEXT LINE. 
C40) X«X(;2],(0.5] "7° 
(41) WP+'?'=NAME 
(42) J+WP/\pWP 
C43) XCsssJ]+(xCisss7J#" ')0C1) XL3357] 
[44] FIND ROWS THAT CONTAIN SEARCH STRING IN SPECIFIED COLUMNS 
(45) B+v/X(1333]4.=NAME 
(46) +0 
(47] LR: LEFT - RIGHT PHRASE: S=NAME*NAME 
(48) Be(M WILDCARD(S1'*')+S)AM WILDCARD("1+S.'*')+S 
v 
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* AROWMEM 


Y _R+X AROWNEN Y3;C 

{1] aR({IJ=1 IF <X(I;]> IS 4 ROW IN <Y> (TRAILING BLANKS IGNORED) 
[2] #.K SEARCHING 

(3] a.7 1988.4.13.1.58.23 
[4] +(2<ppX)/ERR1 
(5] +(2<ppY)/ERR2 
[6] MAKE X AND Y MATRICES 
(7) Xe("2t 11 ,pX)exX 
(8) Y+(~2¢ 11 ,pY)peY 

[9] aC IS MAXIMUM_NUMBER OF COLUMNS 

[10] C+("1tpx)[1tpY 

[11] aPAD WITH BLANK COLUMNS ON RIGHT TO MAKE COLUMNS CONFORMABLE 
(12) Rev/(((1tpX) C)+X)A.2Q((1tpY) ,C)+Y 
(13) +0 

14) ERR1:° 

15) O+' AROWMEM RANK ERROR‘ 
O+'LEFT ARGUMENT HAS RANK GREATER THAN 2° 
17] +0,08xX 'R' 

18] ERR2: 

(19) O+' AROWNEM RANK ERROR' 

(20] O+'RIGHT ARGUMENT HAS RANK GREATER THAN 2' 
(21) +0,08x 'R* 

v 


maaan 
» 
a 
uo 
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* GRADEUP 


v -Y*CS GRADEUP M;C;1;010 
[1]. aGRADEUP VECTOR FOR CHARACTER <M> BASED ON COLLATING SEQUENCE <CS> 
[2] #.X SORTING 
[3] a.T 1988.4.18.23.23.0 
{4] SORTS VECTOR OR MATRIX <M> COLUMN BY COLUMN 
(s] Oro+1 
C6] Y+.0 
(7] + (0epM)/0 
[8] +(~(ppM)e 1 2)/ERR1 
C9] CS+((0=x/pCS)/DAV) , (0#x/pCS)/CS 
(10] ad VECTOR IS TREATED AS A ONE-COLUMN MATRIX 
(11) M+(2+(pM), 1 1)oM 
(12] aASSIGN COLUMNS ON WHICH TO SORT (SORT ON LAST COLUMN FIRST) 
C13] C+. 1t pM 
(14] aTHIS ALGORITHM SORTS THE INDICES, NOT THE COMPLETE MATRIX 
(15) T+.ltpM 
C16] I+0 
(17] £10: 
(18] +((1tpC)<I+I+1)/0 
(19) Y+YCacsiM(¥;C(I]]] 
[20] +210 
[21] ERR1: 
[22] O+'GRADEUP RANK ERROR‘ 


* GRADEUP1 


v  Y*CS GRADEUP1 M 

(1] AGRADEUP VECTOR FOR CHARACTER <M> BASED ON COLLATING SEQUENCE <CS> 
[2] a. SORTING 

[3] a.T 1988.4,18.23.23.0 

[4] aBNCODE EACH ROW AS AN INTEGER, THEN GRADE UP 
(5] +(OepY+M)/0 

[6] +(~(ppM)e 1 2)/ERR1 

(7) ‘GRADEUP1' CHECKSUBROUTINE ‘BASE’ 

C8J CS+((0=pCS)/DAV) ,(0#pCS)/CS 

{9]_ aTREAT VECTOR AS Wx1 MATRIX 

[10 Y+4CS BASE(2+(pM), 1 1)pM 

(11] +0 

(12) ERR1: 

(13 O+'GRADEUP1 RANK ERROR’ 


wou 
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* SORT 


v  Y+*C SORT M;CS;SHAPE;QI0 
[1] SORT CHARACTER VECTOR OR MATRIX <M> ON COLUMNS <C> 
(2] a.K SORTING 
[3] a.W RML 
C4] aT 1988.4.25.22.34.19 
(5] a.V 1.3 / 22MAY85 
[6] a.v¥ 1.4 / 197UN86 (FIXED BUG IN COMPUTING <C>) 
(7] a.v¥.1.5 / O4MAY88 (MINOR CORRECTIONS, USE GRADEUP) 
(8) Oro+1 
9] ‘SORT’ CHECKSUBROUTINE 'GRADEUP* 
[10] +(~(ppM)e 1 2)/ERR1 
[11] +(OepY+M)/0 
(12] a ----- RIGHT ARGUMENT 
[13] aVECTOR <M> IS TREATED AS A ONE-COLUMN MATRIX 
(14) SHAPE+pM 
(15] M+(2+(pM), 1 1) pM 
[16] a ----- LEFT ARGUMENT 
[17] aGET COLUMNS ON WHICH TO SORT (DEFAULT IS ALL COLUMNS). 
[18] nEMPTY_<C> WILL NOT GENERATE AN ERROR. 
[19] +(v/C>~1+pM) /ERR2 
(20) C+((0epC)/r 1tpM) ,(~0EpC)/C 
(21) a ----- GLOBAL ARGUMENT 
[22] aDEFINE COLLATING SEQUENCE CS FROM GLOBAL GASORTACS 
(23) 2(020NC 'GASORTACS')/*GASORTACS+QAV* 
(24) CS+,GASORTACS 
C25] a i 
[26] GET SORT VECTOR BASED ON SPECIFIED COLUMNS, THEN SORT AND RESHAPE 
(27] Y+SHAPEpM[CS GRADEUP N[;C];] 
[28] +0 
(29] ERR1: 
(30) O+'SORT RANK ERROR* 
(31] +0,Qex ‘r' 
(32] EBRR2: 
(33) O+'SORT INDEX ERROR' 
(34] +0,0ex 'y' 
v 
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* SR 


v L+V SR S3A3D3E3F31303Q3R3" 3010 
[1] REPLACE 'OLD' SEQUENCE BY ‘NEW' IN <¥>. <S>=/OLD/NEW 
[2] a.£ ‘MARY HAD A LITTLE LAMB‘ SR '/MARY/ANNIE' 
(3] a.X SUBSTITUTION 
{4] a.T 1988.4.21.0.18.17 
[5] n.¥ 1.0 / 15MAR83 
[6] #.¥ 2.0 / O2MAY88 / ORDER OF ARGUMENTS REVERSED TO CONFORM TO <SS> 
(7] THE FIRST ELEMENT IN <S> IS THE DELIMITER. 
C8] Oro+1 
9] 'SR' CHECKSUBROUTINE 'SS' 
(10] aLEFT ARGUMENT 
[11] +(~(ppV¥)e 0 1)/ERR1 
(12) L+,V 
{13] aRIGHT ARGUMENT 
[14] +(~(ppS)e 0 1)/BRR1 
(15) S+,S 
(16) +((pS)<2)/ERR3 
(17] GET OLD AND NEW SEQUENCES 
(18] = I#(SC1]=5)/1ps 
(19) O+14("14+7I(2)) +S 
(20) Q+I(2]+S 
(21] mSEARCH FOR OCCURRENCES OF ‘OLD' 
(22] Rev SSO 
[23] +(0«pR)/0 
[24] CHECK FOR OVERLAPPING OCCURRENCES OF ‘OLD' 
(25) F+p0 
(26] +(V/F>~1+(10R)-R) /ERR2 
(27] aREPLACE ‘OLD' BY 'WEW' 
(28) A+pL 
(29] D+oR 
(30) B+pQ 
(31) ReR-1 
(32) We, (R+(B-F)x 141d) 0.418 
(33) L+(~(.A+DxB-F) eW)\(~(i A) eRe 41 F)/L 
(34) LUIW]+(DxE) pQ 
(35] +0 
(36] ERR1: 
(37) O+'SR RANK ERROR 
[38] +0,08x ‘LZ’ 
(39] ERR2: 
C40) O+'SR DOMAIN ERROR' 
(41) O+'OVERLAPPING SEARCH SEQUENCE = ',¥0 
(42) +0,08x ‘L' 
(43] BRR3: 
[44] O+'SR LENGTH ERROR’ 
(45] +0,08x 'L" 

v 
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* SRN 


VY -L*TEXT SRN S31;N30;R;RL3RN;RO;RR3W30I0 
[1] REPLACE NAME BY ‘NEW’ SEQUENCE IN <TEXT>. <S>=/NAME/NEW 
[2] a.E 'A+d3xVARA+Ax2' SRN '/A/FACTOR' 
(3] 9.K SUBSTITUTION 
C4] a.7 1988.4.24.23.4.34 
[5] a.¥ 1.0 / OSAPRS4 
(6] #.¥ 1.1 / 230CT85 / CORRECTIONS MADE TO ¥1.0 
[7] a.V 1.2 / O2MAY88 / OIO ADDED TO HEADER, Q)-NAMES ADDED, SSN USED 
[8] THE FIRST CHARACTER IN <S> IS THE DELIMITER. 
[9] NAMES ARE REPLACED BY THE NEW SEQUENCE. 
(10] Oro+1 
(11) 'SRN' CHECKSUBROUTINE 'SSN' 
(12) Le, TEXT 
[13] a ----- GET OLD AND NEW SEQUENCES 
(14) I+(S(1J=5)/19S 
(15] O+14(I[2J-1)+S 
(16] NeI(2]+5 
£17] +(0€p0)/0 
[18] » ----- FIND POSITIONS OF OLD SEQUENCE (NAME) 
(19) R+L SSN O 
[20] +(0€pR)/0 
[21] aNOTE: NO NEED TO CHECK <R> FOR OVERLAPPING TEXT. 
[22] n<O> CONSIDERED AS A NAME CAN NEVER OVERLAP ITSELF. 
[23] aSEE <SSN> FOR FURTHER DETAILS. 
- REPLACE NAME WITH NEW SEQUENCE 


{29] ReR-1 
[30] a<W> IS INDICES OF ALL OCCURRENCES OF WEW SEQUENCE IN NEW LINE 
(31) W+, (R+(RN-RO)* 1+.RR)°.+. RN 
(32] AREMOVE OCCURRENCES OF OLD SEQUENCE, AND BXPAND TO ALLOW NEW SEQUENCE 
(33) L+ (~( 1 RL+RRXRN-RO) €W) \(~(2RL) eRe .+1RO)/L 
[34] aINSERT NEW SEQUENCE 
(35] LUW]+(RRxRN) pW 
v 


*  WREPL 
ae E+V VREPL A3I3d3L3M3V;¥1;010 
[1] REPLACE IN <V> SINGLE-CHARACTER ABBREVIATIONS DEFINED IN <A> 
(2]  a.X SUBSTITUTION 
[3] a. K.#. GLATTING AND G. OSTERBURG 
C4] a.T 1988.4.28.21.22.52 
(5] a.V 1.0 / DEC80 


(6) Oro+1 

(7] vieveA(30I0) 
(8) I+vi/ip¥ 

(9] J+AC3070).V(T) 


[10] aDETERMINE THE LENGTH OF THE STRING TO REPLACE EACH CODE 


(11) L+~Oa\(1t0pV)=0 0 1 +4 
[12] L+L(J3] 

(13) M+ 0 1 +x\(I+0.5),L 
(14) V1i+(~V1)/197 

[15] 


E+(V(V1],(,£)/, 0 1 +4031) CAV1,(,2)/,M) 
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VED 


v LINE*+VED TEXT;A 
AVECTOR EDIT. EDIT VECTOR <TEXT> IN A SIMPLE FASHION 
a.D 23 MAR 83 
a.K TEXT-EDITING 
a.N JARRY APSIT - 
LINE+(, Opll+("/'#TEXT)/A\ (A+ \'#TBXT+( pTEXT) +0) /U+TEXT+, TEXT 


VEDIT 


v N VEDIT NAME;PROMPT;T;TEXT;Y 
AVECTOR EDIT. SCREEN EDIT VARIABLE <NAME> FRON <N{1)> TO <W[21> 
a.K TEXT-EDITING 
a.N RML 
a.T 1985.8.8.11.21.40 
A.V 1.1 / 840G85 
ATHIS FUNCTION CAN BE USED ON A TERNINAL WITH SCREEN EDITING FEATURES 
TEXT+Y+2NAME 
AASSIGN DEFAULTS (1,END OF TEXT) TO N 
N+2+N, (*/pN)+1,*/pLEIT 
AENSURE N IS BETWEEN 1 AND pTEXT 
Ne1f (oLBXT) LN 
(+PROMPT+(~1+MC1])+NC2] +2827 
r+,0 
+(0#p2) /L2 
+END,Opl+'BNPTY RESULT. NO CHANGE’ 
AIF FIRST PART OF TIS ALL BLANK, DO NOT [1 
L2:+(~a/* *=(14NC2]-M011) +2) /L1 
AALL BLANK. ASSUME PROMPT TEXT WAS UNCHANGED AND MUST BE KEPT 
AREINSERT PROMPT INTO RETURNED TEXT <I> 
I+PRONPT , (pPRONPT) +I. 
Li:Y+((WC1)-1) #2827) ,Z,NC21+2EX7 
END: sNAME,‘+' 
v 


1 
2 
3 
4 
5 
6 
7 
8 
9 
1 


0) 
(11) 
(12) 
(13) 


v 


v 


v 


FTIME 


T+FTIME TS;010 
ARETURN TIME OF DAY <TS> (DTS FORMAT) IN FORMAT HH:NM:SS (AN/PN) 
a.K TIME 
a.T 1985.9.22.12.51.33 
a.V 1.0 / 310CT83 
Oro+1 
T+(2 12 TTS(1]),TSC2 31] 
7(2]+7(2]+12x7[2]=0 
T+1+10,(2,6p10)T" 'p1004T 
T+('0123456789:'(T[3 4 15 617 8]))," ',('AP*CT(2]}]),'M 


TIME 


Y+TIME;T;X;0I0 
ARETURN CURRENT TINE OF DAY IN FORMAT #H:MN:SS (AN/PM) 
a.K TIME 
a.T 1988.5.13.0.16.21 
a.¥ 1.0 / OCT80 
a.V¥ 1.1 / APR88 / REMOVED ‘EASTERN TIME‘ 
Oro+1 
T+Ors 
aT(4 5 6) = HH MM SS 
aX(1]  O=NORWING 1=4FTERNOON 
ax(2] IS 0 TO 11 HOURS. 0 MEANS 12 NOON OR 12 MIDNIGET 
X+ 2:12 1rls) 
X(2]+x02]+12xx(2]=0 


Y<(2 0 ¥X£2]),°:",(2 0 ¥PE5]).':',(2 0 wPL6])," ',"AP'CXLIJ+1),'M" 
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* CPUCON 


v= -Z*CPUCON;0T 
] RETURNS ELAPSED CPU AND CONNECT TIME SINCE FUNCTION LAST REFERENCED 
] a.K TIMING 
J] a.T 1988.4.12.17.25.34 
] aCHECK FOR OLD TIME (OT) 
] 2(0=0NC 'GACPUCONAOT')/'GACPUCONAOT+DAI' 
] OT+GACPUCONAOT 
] aCPU,CONNECT IS DAIC2 3] 
] FIND CPU AND CONNECT SINCE LAST CALL 
(9] Z+(2t14+0AI)-2t140T 
[10] RESET GLOBAL 
[11] GACPUCONAOT+DJAI 
v 


*  FCPUCON 


Y= Z*FCPUCON X;CPU;CON;4;B;0I0 
[1] FORMAT CPU AND CONNECT TIME INTEGERS <X> 
(2] a.K TIMING 
(3] a.7 1983.10.20.18.31.27 


(4) O10+1 

[5] cPu+, 0 60000 rx[1] 

(6) con+, 0 60000 rx[2] 

[7] FORMAT MINUTES TO A MINIMUM OF TWO SPACES (99) 

(8) A+(-20 pd) t4+, ¥CPUC1] 

(9) B+(-20 pB)+B+,¥CON[1) 

[10] Z+'CPU=",4,' M ',(6 3 ¥CPU[2]#1000),' S CONNECT=',B,' M ',(6 


3 ¥CON[2]+#1000)," S' 
v 


* TIMER 


v -Y«TIMER N;TT 
[1] TIME <N> EXECUTIONS OF AN EXPRESSION FOR CPU AND CONNECT TIME 
(2] a.x TIMING 
[3] #.V 1.0 / 12A4PL82 
(4]  aTHIS FUNCTION IS BASED ON THE RESULT OF QAI 
(5]. aCOMPUTE OVERHEAD FIRST. IGNORE FIRST TIMING TEST. 
C6] TT+2+14+0Al 
(7) £i:New-1 
(8] +(O>N)/L2 
(9]_ aPUT CODE HERE 
(10) +21 
(11] £2s¥+(2+14D4r)-T7 
v 
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TIMETRACE 


v INTERVAL TIMETRACE NSG;CP;NOW 
[1] PRINT <MSG> ON TERMINAL AFTER <INTERVAL> MILLISECONDS OF CPU TINE 
[2] #.E 2000 TIMETRACE ‘ANOTHER 2 SECONDSHAS BLAPSED' 
(3] a.K TIMING 


C4) NoW+1+2+04I 
[5] CHECK FOR CHECKPOINT TINE (CP) 
[6] 2(O=0NC 'GATINETRACEACP' )/'GATIMETRACEACP<', ¥NOW 
(7] CP+GATIMETRACEACP 
ta +( INTERV AL>NOW-CP)/0 
9 


O+use 
(10) GATIMETRACEACP+NOW 


* TIMING 


VY -Z+TIMING 
[1] COVER FUNCTION TO CALL AWD FORMAT <CPUCON> 
(2) a.K TIMING 
(3) 2+FCPUCON CPUCON 

v 
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e--------------- > 
| TRANSLATION | 
e--------------- > 


* ARABIC 


Vv Y*ARABIC X3;43;010 
{1] RETURNS ARABIC (BASE 10) EQUIVALENT FOR CHARACTER ROMAN NUMERAL <X> 
[2] a. TRANSLATION 
(3] a.7 1988.4.13.1.6.8 
(4) Oro+1 
[5] +(~(ppX)« 0 1)/ERR1 
(6) X+aDB X 
[7] +(~a/Xe* IVXLCDM' )/ERR2 
{8] A+ 1 5 10 50 100 500 1000['IVXLCDM'1X] 
C9] Yoa+.x 1+2xd2(A,0)[1+1p4] 
+0 
BRRi: 
+" ARABIC RANK ERROR 


] 
] 
] 
[13] +0 
] BRR2: 
] O+*ARABIC DOMAIN ERROR* 
1 +0 
v 


* BASE 


v= -R+CS BASE TEXT;OIO 
[1] ABNCODES <TEXT> TO AN INTEGER USING COLLATING SEQUENCE <CS> 
(2] a. TRANSLATION 
[3] a.T 1988.4,12.21.19.56 
[4] #.¥ 1.0 / 15JUL83 
(5] .¥ 1.1 / 154PR88 / MATRIX ARGUMENT ALLOWED FOR <TEXT> 
[6] EACH ROW OF <TEXT> WILL BE ENCODED INTO AN INTEGER 
(7) O1o+1 
[8] +((ppTBXT)>2)/ERR1 
[9] +(OcpY+TEIT)/0 
(10) TEXT+(~2+ 1 1 ,pTBXT)pTEXT 
[11] ACOLLATING SEQUENCE CS DEFAULTS TO QaV 
(12) CS+((0epCS)/DAV), (~OepCS)/CS 
[13] aALLOW FOR UNKNOWN CHARACTERS TO BE MAPPED INTO 1+pCS 
(14) Re(1+pCS)s& 1+CSiTEIT 
(15] +0 
[16] BRR1: 
(17) O+'BASE RANK ERROR' 
v 


TRANSLATION 7 PAGE 5-73 


* DFE 


v Y+DFH X;N;0I0 
[1] RETURN DECIMAL VALUES OF HEX NUMBERS <X> 
(2] a.X TRANSLATION 
[3] a.? 1988.4.12.19.49.28 
[4] a. 10 274 = DFH 2 3p'004112' 
[5] aEACH HEX NUMBER IS ONE ROW OF A MATRIX 
[6] aWARNING: HEX NUMBERS MUST BE ZERO-PADDED ON THE RIGHT IF NECESSARY 
(7] Oro+o 
[C8] +((ppX)>2)/ERR1 
[9] +(OepY+x)/0 
[10] X+("2t 11 ,pX)exX 
(11) Y+161'0123456789A4BCDEF" 18x 
[12] +0 
[13] 8RR1:0+'DFH RANK ERROR' 
v 


*« FI 


v= -ReFI A3M3010 
[1] FIX (TRANSLATE) TEXT INPUT <A> TO NUMERIC VECTOR 
[2] a.K TRANSLATION 
(3] a.N JEFFREY MULTACE 
(4) a.T 1988.4.18.21.29.7 
[5] a.v 1.0 / DEC8O 


(6) Oro+1 
C7] ‘FI' CHECKSUBROUTINE ‘VI' 
(8) ReVI' ',4 


[9] +(a/0=R)/0 

[10] nFORM MASK FOR CHARACTERS TO CONVERT 
(11) Meat! ¢ 

(12] M+M>0,~ 14M 

[13] MASK OUT AND CONVERT VALID NUMBERS 
yaad RUR/.pR)+2(#\M\RC1),(14+R)# 14R)/A 


* AFD 


v YN AFD D;Q0I0 
(1) ARETURN HEX EQUIVALENT OF INTEGERS <D> TO <N> HEX POSITIONS 
(2] a. 4 HFD 10 
[3] #.K TRANSLATION 
(4) a.T 1988.4.12.19.49.28 


(s] Oro+0 

(6) +((ppD)>1)/ERR1 

(7) D+,D 

te Y+&'0123456789ABCDEF'[(Np16)1D] 


> 

) 

(10) ERR1:0+'#FD RANK ERROR‘ 
v 


PAGE 5-74 TRANSLATION 


* ROMAN 


v Y+ROMAN X;4;010 
[1] CHARACTER ROMAN NUMERAL EQUIVALENT OF ARABIC (BASE 10) NUMBER <X> 
(2] a.K TRANSLATION 
(3] a.7 1988.4.13.1.6.8 
(4) Oro+1 
(s] X+,X 
C6] d+,(10 4p 33331333113311131033033301330 
113011211 23 3)C1+(4p10)Tx3] Ri 
(7) Ye"MDCLXYVI'([ (A#3)/4+2xL0.25x 14216] 
v 


UNCATEGORIZED PAGE 5-75 


PNROT 


VY -Z+A PNROT W313 
[1] PERMUTATION VECTOR <A> FOR PARTITIONED <N>-ROTATE ON PARTITIONS <A> 
(2] 0.€21534%89674.5101001000 PYROT1 “12 
[3] a. UNCATEGORIZED 
(4] a.T 1988.4.13.1.38.6 
[5] RETURNS THE PERMUTATION VECTOR TO PERFORM A PARTITIONED <N>-ROTATE 
(6] AON A VECTOR WHOSE PARTITIONS ARE DESIGNATED BY <A> 
{7]  a<W> MUST SATISFY (p,N)e1,+/A AND WILL BE SCALAR-BXTENDED IF NECESSARY 
(8] I+(104)/194 
(9] Jo+\d 
C10] I*I-"140,I- 
(11) Zehd+ (TIN) (o]2+\1-A\ 140,72 


UNION 
v Y+A UNION B;C 


{1] ASET UNION <A> AND <B> LEAVING ORDER OF RESULT AS IN <A> 
[2] #.K UNCATEGORIZED 

[3] a.7 1988.4.6.1.28.16 

04) C+f/ 0101 /(pd),pB 

(5) A+((1tpd),C)t4 

6] B+((1+pB),C)+B 

{7] GET ELEMENTS OF B BUT NOT IN A AND PUT THEM AFTER A 

(8) Y¥+4,(1](~B AROWMEN 4)/B 


v 
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vo oReVI AST 

[1] VALIDATE NUMERIC. INPUT <A> 

(2] a.K VALIDATION 

[3] .N GERALD BAMBERGER, APL QUOTE-QUAD, MAR 80 
C4] 9.7 1985.9.22.11.8.55 

[5] #.v 1.0 / MAR 80 


C6] T+" 11111111112345'[* 0123456789. B'1'0 ',4] 

(7) Reis]e((Te'234')vT#" *, 14+7)/T 

C8] ReRe(8 3 p O 41 431)+ 1 12 121 21 31 312 3121 321 °.x 1 100 1000 
v 

* VNAMES 


Vv -Y*VNAMES V;4N3R;T30I0 
(1]  AVALIDATE NAME SPECIFICATIONS IN <V> 
(2] a.z 1 12 131 412 4131 0 = VNAMES 'A D?* A-D ~A® ~D-E *AtA' 
[3] a. VALIDATION 
C4] a.N RML 
[5] a.T 1988.4.24.21.39.7 
(6] a.V 1.2 237AN84 
[7] #.V 2.0 26NOV8S / ADD ? FACILITY AWD REMOVE ESCAPE CHARS 
(8] .V 2.1 224PR88 / ADD VALID SPECIFICATIONS, ALLOW GENERAL ?, ADD ~ 
[9] VALID NAME SPECIFICATIONS: 
C10] a In “x XeY 23x 2 I-Y¥ I- -I - 
{(11J a 1 12 21 121, -2120« 2s 131 13 31 3 
[12] ALSO ANY OF ABOVE PREFACED BY <~> 
[13] a<AN> CONTAINS CHARACTERS ALLOWED TO FORM X AND Y 
(14) O10+1 


AN«* 2QABCDEFGHIJKLMNOPQRSTUVWXY Z SABCDEFGHIVKLMNOPORSTUVWXYZA0123456789' 
(16) V+aDB V 
[17] +(OepY+v)/0 
(18] aCOMPUTE CLASS OF SPECIFICATIONS IN V 
(19) T+(* ',((pAW)p'i1"),*2345")C(' "AN, '#-~")17) 
(20) Ree ((Te'234")vTe* ", 147)/7 
[21] aRETURN INVALID CODES AS 0 
(22] YeRxRe 1 12 21 121 212 2 13 31 131 3 41 412 421 4121 4212 42 413 431 
4131 43 
v 


VALIDATION ; PAGE 5-77 


vPIs 


VY -YeVPIS V3A3CS3R3T 
(1] aVALIDATE POSITIVE INTEGER SPECIFICATION <¥> 
-(2] a.K VALIDATION 
[3] a.W RNL 
(4] a.T 1988.4.5.20.32.57 
(5] a.v 1.1 13N0v8S 
(6] a.V 1.0 23N0v83 
{7] POSITIVE INTEGER SPECIFICATION: SEQUENCE OF INTEGERS AND RANGES 
{8] INTEGER N TON NTO END ‘START TON ALL 
{(9] a wW N-N a- -" - 
{10] a 1 121 12 21 2 
(11) Y+10 
(12) 4+aDB V 
[13] +(0«p4)/0 
(1%] mCHARACTER SET FOR VALID POSITIVE INTEGER 
(15) CS+"0123456789' 
(16] T+(* *,((pCS)pt1'),*23"C(" ',CS,'-")14) 
(17) Re,2((Te'2*)vre! *, 147) /T 
C18] Y+(Re 1 121 12 21 2),(1.5] 8 


Last-Minute Additions 


SEARCHING RIOTA 


ReX RIOTA Y 
IN MATRIX <X> WHERE IS EACH ROW OF <Y¥>? 


<RIOTA> IS LIKE <X>.<Y> BUT FOR MATRICES. 


ARGUNENTS: 


<I> MATRIX 


<¥> MATRIX 
A SCALAR OR VECTOR ARGUMENT IS TREATED AS A 1-ROW MATRIX. 


RESULT: 


<R> VECTOR 
<R(I]> GIVES THE ROW POSITION OF <X[I;]> IN <¥>. IF X({I;] IS NOT FOUND IN 
Y, THEN R(I] IS 1+1+pY. <X> AND <Y> DO NOT HAVE TO BE CONFORMABLE WITH 
RESPECT TO COLUMNS. THE ARGUMENTS ARE PADDED APPROPRIATELY. 


SOURCE: 


APL HANDBOOK OF TECHNIQUES, 1977, (IBM). 


EXAMPLES: 


O+M+5 Sp'APPLEBETTYCAT ' 


M RIOTA ‘APPLE' 
M RIOTAN 

12 

M RIOTA ‘BAT’ 


‘APPLE’ RIOTA N 
2212 


O+M+S 49116 
123 4 
5 6 7 8 
9 10 11 12 
3°14 15 16 
1 2 3 4 
M RIOTA1 234 


M RIOTA 1 2 3 


M RIOTAN 
2341 

M RIOTA 2 491 2:34 9 10 11 12 
3 


seeee FIRST OCCURENCE OF EACH ROW 
X«+M RIOTA M 
(XiX)=1pF 

11110 

«eeee COMPARE WITH <FIRST> 
FIRST N 

11110 


SEARCHING 


* RIOTA 
v ReX RIOTA Y;010 - 


(1] IN MATRIX <X> WHERE IS EACH ROW OF <Y>? 

(2] 9. SEARCBING 

(3) #.7 1988.5.15.12.0.0 

[a] #.¥ 1.0 / 190CT83 = 
(s) Oro+1 

(6) Y+(“2t¢ 11 ,pY)eY 

(7) X+("2¢ 11 ,oX) ex 

(8) Rei+4/~v\(((O 1 xpX)[pr)+r)a.2@((0 1 xp¥) lex) +X nh 


The APL Toolkit 


Section 6 
Documentation of Functions 


The APL Toolkit 


CATENATION BESIDE PAGE 6-1 


Y+A BESIDE B 
CATENATE ARRAY <A> TO ARRAY <B> (MAXIMUM RANK 2) ON LAST COORDINATE 


INTRODUCTION: 
OFTEN ONE WANTS TO CATENATE VECTORS AND MATRICES WHOSE LENGTHS ARE 
NON-CONFORMING. THIS FUNCTIONS PADS THE ARGUMENTS AND CATENATES THEM 
ALONG THE SECOND COORDINATE (COLUMNS). THIS FUNCTION SHOULD BE COMPARED 
WITH THE FUNCTION <ON> WHICH CATENATES ALONG ROWS. IT IS CURRENTLY 
RESTRICTED TO ARRAYS WITH MAXIMUM RANK 2. 


ARGUMENTS: 


<A> ARRAY (RANKS2), NUMERIC OR CHARACTER 
<B> SAME AS <A> 
RESULT: 


<Y> MATRIX 
THE RESULT CONSISTS OF <A> CATENATED TO <B> ALONG THE LAST COORDINATE. IF 
AN ARGUMENT IS A SCALAR OR VECTOR, IT IS FIRST RESHAPED TO A 
ONE-COLUMN MATRIX. THE NUMBER OF COLUMNS IN <Y>_IS THE SUM OF THE_NUMBER 
OF COLUMNS IN EACH ARGUMENT, AFTER RESHAPING. (~itpY) = ("1tpd)+( 1+pB) 


EXAMPLES: 
V+'AAAA' 
M+2 2p'B' 
Vv BESIDE M 
ABB 
ABB 
4 
A 
M BESIDE V 
BBA 
BBA 
4 
4 
"XXXX' BESIDE ' ',M BESIDE V 
X BBA 
X BBA 
x ry 
D 4 
10 20 30 40 BESIDE 3 3p5 
10 5 5 5 
20 5 5 5 
30 5 5 5 
40 0 0 0 


weeee MOTE THE DIFFERENCE BETWEEN <BESIDE> AND CATENATE 
"A' BESIDE 2 2p's' 
dee 
oo 
"A",2 2ptet 
dee 
Ase 


PAGE 6-2 ON CATENATION 
Y+A ON B 
CATENATE ARRAY <A> TO ARRAY <B> (MAXIMUM RANK 2) ON FIRST COORDINATE 


INTRODUCTION: 


THIS IS SIMILAR TO THE FUNCTION <BESIDE> EXCEPT THAT THE FUNCTION 
CATENATES ALONG THE FIRST COORDINATE (ROWS). 


ARGUMENTS: 


<A> ARRAY (RANKS2), NUMERIC OR CHARACTER 
<B> SAME AS <A> 
RESULT: 


<I> MATRIX 
THE RESULT CONSISTS OF <A> CATENATED TO <B> ALONG THE FIRST COORDINATE. A 
SCALAR OR VECTOR IS TREATED AS A ONE-ROW MATRIX. THE NUMBER OF ROWS IN 
<Y> IS THE SUM OF THE NUMBER OF ROWS OF EACH ARGUMENT, AFTER RESHAPING. 
(1tpY) = (1tpa)+(1tpB) 


EXAMPLES: 
V+'AAAd' 
M+2 2p'B' 
Vv ONN 
AAAA 
BB 
BB 
MONV 
BB 
BB 
Asad 
"XxXX' ON M ON V 
qx1r 
BB 
BB 
4AAA 
12.3 4 5 OW 2 2p99 
1 23 4 5 
99 99 0 0 0 
9999 0 0 0 


«eees NOTE THE DIFFERENCE BETWEEN <ON> AND CATENATE 
"A' ON 2 2p'e! 

4 

ee 

oe 


"a',(1]2 2pte’ 


4A 


COMPUTATION AMORTIZE PAGE 6-3 
Y+AMORTIZE W 
AMORTIZATION SCHEDULE BASED ON <W> = DEBT, RATE, MONTHS 


INTRODUCTION: 
THIS FUNCTION COMPUTES AN AMORTIZATION SCHEDULE. IT SHOULD BE NOTED THAT 
THE ALGORITHM USED IS VERY SIMPLE (BASED ON EQUAL PAYMENTS). USE THIS 
FUNCTION ONLY FOR PLANNING PURPOSES, AS THE SCHEDULE USED BY FINANCIAL 
INSTITUTIONS MAY DIFFER. 


ARGUMENTS: 
<W> 3 ELEMENT NUMERIC VECTOR 
wi] DEBT IN TOTAL UNITS (E.G. DOLLARS) 
w(2] RATE IS YEARLY INTEREST EXPRESSED AS FRACTION 
E.G. 10.5 PER CENT IS .15 
wL3] TIME PERIOD IN MONTHS OVER WHICH LOAN WILL BE REPAID 


RESULTS: 
<¥> 5 COLUMN MATRIX: 
Y(31] PERIOD 
Y(;2] CURRENT DEBT OUTSTANDING 
Y€33] MONTHLY PAYMENT (SAME PAYMENT EACH MONTE) 
YC(34]  AMORTIZED AMOUNT (PORTION OF PAYMENT APPLIED TO PRINCIPLE) 
Y(3;5] INTEREST (PORTION OF PAYMENT COUNTED AS INTEREST) 


SOURCE: 


ADAPTED FROM THE APL HANDBOOK OF TECHNIQUES 
IBN CORPORATION, BD. DAVE MACKLIN, 1977 


EXAMPLES: 

«+. BORROW 50000 DOLLARS AT 10.5 PERCENT YEARLY 

«eeee REPAY IT OVER 25 YEARS ON A MONTHLY BASIS (EQUAL MONTHLY PAYMENTS) 
Y+AMORTIZE 50000 .15, 12x25 

«eeee PRINT FIRST 12 PAYMENTS 
(2 0,898 2) wY(1123] 

150000.00 640.42 15.42 625.00 

249984.58 640.42 15.61 624.81 

349968.98 640.42 15.80 624.61 

449953.17 640.42 16.00 624.41 

549937.17 640.42 16.20 624.21 

649920.97 640.42 16.40 624.01 

749904.57 640.42 16.61 623.81 

849887.96 640.42 16.82 623.60 

949871.15 640.42 17.03 623.39 

1049854.12 640.42 17.24 623.18 

1149836.88 640.42 17.45 622.96 

1249819.43 640.42 17.67 622.74 

weeeee COMPUTE TOTAL REPAID, TOTAL DEBT REPAID, TOTAL INTEREST PAID 
12 2.12 2:12 2 ¥+/(1]0 2+7 

192124.59 50000.00 182124.59 


PAGE 6-4 DROUND COMPUTATIUN 


R+U DROUND V 


DISTRIBUTIVE ROUNDING OF A VECTOR <V> TO ARBITRARY SCALAR UNIT <U> 


ROUNDING A SET OF NUMBERS BEFORE SUMMATION MAY CAUSE AN ERROR IN THE SUM. 
ROUND-OFF ERRORS MAY NOT COMPENSATE. IT WOULD BE GOOD PRACTICE TO CARRY 

MAXIMUM PRECISION UNTIL THE FINAL SUMMATION AND THEN ROUND THE SUM. WHEN 
THIS IS NOT POSSIBLE, WE WOULD STILL WANT TO ENSURE THAT THE ROUNDED SUM 

TO EQUAL THE SUM OF THE ROUNDED NUMBERS. 


ARGUMENTS: 


<V> NUMERIC VECTOR 
<U> SCALAR 
RESULT: 


<Y> NUMERIC VECTOR 
THE RESULT IS 4 VECTOR OF ROUNDED <X> WITH THE ROUNDOFF ERRORS DISTRIBUTED 
AMONG THE NUMBERS. 


SOURCE: 


THE APL HANDBOOK OF TECHNIQUES, 1977 (IBM) 
EXAMPLES: 


weees SUPPOSE V IS A VECTOR OF DOLLAR AMOUNTS (AFTER CURRENCY ADJUSTMENT) 
¥+167.0811 424.7704 519.4701 77.0022 163.6762 31.3536 559.1038 17055.742 
Vey, 125.3108 247.7827 1168.8078 256.674 130.941 877.8996 127.7951 
«eee. SUM OF ROUNDED NUMBERS 
+/.01 DROUND V 
21933.41 
«sees ROUNDED SUM OF NUMBERS 
2 RND +/V 
21933.41 4 
. . THIS SUM DIFFERS WITH THE SUM OF ROUNDED NUNBERS USING <RND> 
seees WHICH IS THE USUAL WAY OF ROUNDING. 
+/2 RND V 
21933.4 
«eees DIFFERS BY A PENNY! 


weeee COMPARE THE RESULTS OF <RND> AND <DROUND> IN DETAIL 
M+(.01 DROUND V),[1.5] 2 RND V 
(wM), ' ' BESIDE * **(1+#/M] 
167.08 167.08 
424.77 424.77 
519.47 519.47 
77 17 
163.68 163.68 
31.35 31.35 
559.1 559.1 
17055.74 17055.74 
125.31 125.31 
247.78 247.78 
1168.81 1168.81 
256.68 256.67 * 
130.94 130.94 
877.9 877.9 
127.8 127.8 


COMPUTATION DSTAT PAGE 6-5 


DSTAT X 
LABELLED SET OF DESCRIPTIVE STATISTICS FOR DATA <I> 


INTRODUCTION: 


<DSTAT> FORMATS THE STATISTICS COMPUTED BY <DS>. IF A DIFFERENT FORMAT IS 
REQUIRED, IT CAN BE WRITTEN WITHOUT CHANGING <DS>. THE STATISTICS 
INCLUDE MEAN, RANGE, AND STANDARD DEVIATION. 


ARGUMENTS: 


<I> NUMERIC VECTOR 
RESULT: 


A LABELLED SET OF COMMON STATISTICS IS DISPLAYED ON THE TERMINAL. FOR 


STATPACK2, K.W.SMILLIE (PUBLICATION WO. 17, UNIVERSITY OF ALBERTA, 
FEBRUARY 1969) 


BXAMPLES: 
DATA+67.5 68 151 154 69 43 54 
ADB 8 2¥ DS DATA 
7.00 86.64 2112.39 45.96 17.37 37.63 68.00 154.00 43.00 111.00 


DSTAT DATA 
SAMPLE SIZE...-++ 27 
MEAN. cece eeeee 86.64285714 
VARIANCE...---+00% 2112.392857 
STANDARD DEVIATION 45.9607752 
STANDARD ERROR... 17.37154018 
37.63265306 
68 
154 
43 


PAGE 6-6 "RD 


‘Ren RND X 
ROUND HUMBER <X> zo <> DECIMAL PLACES 


<I> NUMERIC ARRAY 


<N> NUMERIC SCALAR 
THE WUNBER OF DIGITS AFTER THE DECIMAL POINT TO 
<N> IS AN INTEGER. 


RESULT: 3 


<R> " NOMERIC ARRAY 
THE ROUNDED NUMBERS 
(pR)=(pX) 


Br. AMELES 3 


2 RWD 45.345 10.13% 2.136 10.334 
45.35 10.13 2.14 10.33 


ROUND <I>. 


COMPUTATION 


COMPUTATION RNDE PAGE 6-7 
ReRNDE X 
ROUND <X> TO NEAREST INTEGER (.5 CASE GOES TO NEAREST EVEN INTEGER) 


ARGUNENTS: 


<I> NUMERIC ARRAY 


<R> NUMERIC ARRAY 
THE NUMBERS <X> ARE ROUNDED TO THE NEAREST INTEGER. HOWEVER, X.5 IS 
ROUNDED TO THE NEAREST EVEN INTEGER; THAT IS, IF X IS ODD, THEN X.5 IS 
ROUNDED UP TO X+1, BUT IF X IS EVEN, X.5 IS ROUNDED DOWN TO Xx. 


BXANPLES: 
RNDE 11.5 12.5 13.5 14.5 
12 12 148 14 
_ RNDE 11.1 11.2 11.3 11.4 11.5 11.6 
11°11 11 11 12 12 
RNDE 11.456 432.67 23.1% 24.5 
11 533 23 24 


PAGE 6-8 SUBTOTAL COMPUTATION 


R+P SUBTOTAL M 
COMPUTE AND MERGE SUBTOTALS OF <M> DETERMINED BY POSITIONS <P> 


INTRODUCTION: 
THIS SIMPLE FUNCTION IS A FLEXIBLE, EASY-TO-USE, AND GENERAL SUBTOTALING 
FUNCTION. THE ARGUMENT <P> DEFINES SHICH ROWS ARE TO BE SUBTOTALED IN 
THE DATA <M>. THE SUBTOTAL ROWS ARE MERGED INTO THE RESULT IN THE 
APPROPRIATE PLACES. TOGETHER WITH A TEXT MATRIX OF ROW TITLES, THE 
FUNCTION PROVIDES A SIMPLE AND POWERFUL REPORTING CAPABILITY. 


ARGUMENTS: 

<P> NUMERIC MATRIX, Nx2 
THIS ‘ORDER' MATRIX HAS AS MANY ROWS AS THE NUMBER OF SUBTOTAL ROWS, AND 
TWO COLUMNS. THE FIRST COLUMN DEFINES THE STARTING POSITION OF A 
SUBTOTAL ROW, AND THE SECOND COLUMN DEFINES THE ENDING ROW. THE SUBTOTAL 
ROW WILL BE MERGED INTO THE DATA AT THE ROW IMMEDIATELY FOLLOWING THE 
LAST ROW COMPRISING THE SUBTOTAL, OR IMMEDIATELY FOLLOWING THE PREVIOUS 
SUBTOTAL. ONLY CONTIGUOUS ROWS CAN BE SUBTOTALLED. FOR EXAMPLE, ROWS 
1,3, AND 5 IN A 5-ROW MATRIX CANNOT BE SUBTOTALLED INTO ONE ROW. 


<M> NUMERIC MATRIX 
THIS IS THE DATA TO BE SUBTOTALED. 


RESULT: 


<R> NUMERIC MATRIX 
THE ORIGINAL DATA WITH THE MERGED SUBTOTAL ROWS. 


THE METHOD USED TO COMPUTE AND MERGE SUBTOTALS MAY BE STUDIED USING THE 
FOLLOWING FUNCTION ... 

Vv R+P F8 M3438;C3;D;010 
(1] aCOMPUTE SUBTOTAL ROWS OF <M> DETERMINED BY POSITIONS <P> AND MERGE 


INTO <M> 
[2] DESCRIPTION OF R+P SUBTOTAL M 
(3) Oro+1 


(4] aCOMPUTE <D> - MATRIX OF ROWS CONTAINING SUBTOTALS 
C5] B+OP+(pP)p 01 
(6) c++\(i] 0,f1] w 
(7) De-/C2) ClB3) 
(8] COMPUTE MERGE VECTOR <A> AND MERGE SUBTOTAL ROWS WITH <M> 
C9] Ath(iitpM),PL32] 
[10]. R«(M,[1] D)CA3] 
v 


SOURCE: 


AN OLD UTILITY WORKSPACE 
BXAMPLES: 


«+ SUPPOSE <DATA> SHOWS QUANTITY AND SALES OF FRUITS AND VEGETABLES 
DATA*5 2p100 S 200 15 300 25 10 2 20 4 

«+ IT HAS THE FOLLOWING STUB 
STUB+'/' ABOX 'APPLES/ORANGES/PEACHES/TOMATOES/POTATOES' 
STUB,' ',¥DATA 

APPLES 100 5 

ORANGES 200 15 

PEACHES 300 25 

TOMATOES 10 2 

POTATOES 20 4 

«+ MERGE THE SUBTOTALS OF FRUITS AND VEGETABLES, AND GRAND TOTAL 


COMPUTATION SUBTOTAL 
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Pe3 29134515 
P SUBTOTAL DATA 


630 51 
TO DISPLAY THE DATA ALONG WITH THE FULL STUB, THE SUBTOTAL STUB 


«eeee SHOULD BE DEFINED AND MERGED INTO THE DATA STUB. 
SUBTOTALSTUB+'/* ABOX ‘TOTAL FRUIT/TOTAL VEG/GRAND TOTAL’ 
(STUB ON SUBTOTALSTUB)(A(.1t+pSTUB),P(;2]3],' *,¥P SUBTOTAL DATA 


APPLES 100 5 
ORANGES 200 15 
PEACHES 300 25 
TOTAL FRUIT 600 45 
TOMATOES 10 2 
POTATOES 20 5 
TOTAL VEG 30 6 


GRAND TOTAL 630 51 
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Z+CJULIAN JS 
CONVERT JULIAN DAY NUMBER <JS> TO MONTH,DAY,YEAR,STYLE 


INTRODUCTION: 
<CJULIAN> IS THE INVERSE FUNCTION FOR <JULIAN>. FOR THE DEFINITION OF 
JULIAN DATE AND OTHER TERMS, REFER TO THAT FUNCTION. 


ARGUMENTS: 
<JS> NUMERIC SCALAR OR VECTOR, OR Nx2 MATRIX 
<JS> IS A SCALR OR VECTOR OF JULIAN NUMBERS. 
IF <JS> IS A MATRIX, THE COLUMNS ARE INTERPRETED AS FOLLOWS ... 
JS(31] = JULIAN NUMBERS 
JS(32] = STYLE OF CALENDAR 


RESULT: 


<Z> NUMERIC MATRIX 
2031] = MONTE 
2(3;2] = DAY 
2033] = YEAR 
2034] = STYLE 


SOURCE: 


THE APL HANDBOOK OF TECHNIQUES, 1977, IBM. (REFER TO <DATE>). 
EXAMPLES: 


O+Z+JULIAW 2 3p 5 12 1988 5 17 1977 


2447294 2443281 
CJULIAN Z 

5 12 1988 1 

5 17 :1977 1 


ONE MUST BE CAREFUL TO SPECIFY THE APPROPRIATE STYLE CALENDAR AS NECESSARY. 

JANUARY 1, 1800 HAS THE FOLLOWING JULIAN DATE IN NORTH AMERICA ... 
O+Z+JULIAW 1 1 1800 

2378497 


BUT IN RUSSIA THIS JULIAN DATE STANDS FOR A DIFFERENT CALENDAR DATE ... 
CJULIAN 1 2pZ,0 
12 21:°1799 t) 


DATE DATE 


. ReDATE 


RETURN TODAY'S DATE IN FORMAT: MONTHNAME DD, YYYY 


INTRODUCTION: 


<DATE> IS USED FOR REPORTS. 
ARGUMENTS: 


<R> CHARACTER VECTOR 
TODAY'S DATE IN MONTH DAY,YEAR FORMAT. 


BXAMPLES: 


DATE 
MAY 13, 1988 


pDATE 
12 


seees FRENCH VERSION OF <DATE> IS <DATEF> 
DATEF 
MAI 13, 1988 


eeees <EDATE> FORMATS A DATE GIVEN IN NUMERIC YEAR,MONTE,DAY FORMAT 


FDaTE 3+0Ts 
MAY 13, 1988 


FDATE 1968 S 13 
MAY 13, 1988 

FDATE 1987 2 28 
FEBRUARY 28, 1987 

FDATE 1999 11. 
JAWUARY 1, 1999 
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Y*DATES 7 
RETURN MONTH,DAY ,YEAR DATE BQUIVALENTS OF GREGORIAN DAY COUNT <N> 


INTRODUCTION: 


<DATES> IS THE INVERSE OF <DAYS>. IT CONVERTS GREGORIAN DAY COUNTS INTO 
CALENDAR DATES OF THE FORM MONTH ,DAY,YEAR. 


ARGUNENTS: 


<N> NUMERIC VECTOR 
<N> IS 4 VECTOR OF GREGORIAN DAY COUNTS. 


RESULT: 
<¥> — -Nx3. NUMERIC MATRIX 
YC;1] = MONTE 
Y{32) = Day 
- ¥033] = YEAR 
SOURCE: 


“THE APL HANDBOOK OF TECHNIQUES, 1977, (IBM). 
EXAMPLES: , 


O+M+2 395 17 1977 5 12 1988 
5 17:1977 
5 12 1988" 
DAYS M 
721856 725869 


DATES DAYS M 
5 17 1977 
5 12 1988 
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Y+DAYS D ; 
RETURN GREGORIAN DAY COUNT OF <D>'= MONTH,DAY ,YEAR 


<DAYS> RETURNS THE GREGORIAN DAY COUNT FOR <D>. THE GREGORIAN DAY COUNT 
IS THE NUMBER OF DAYS SINCE 1/1/1, INCLUSIVE, AS IF THE GREGORIAN 
CALENDAR HAD BEEN IN CONTINUAL USE SINCE THAT DATE. 


IT CAN BE USED TO COMPUTE WITH DATES FOR THE GREGORIAN CALENDAR, WHICH IS 
FINE FOR MOST RECENT EVENTS! 


ARGUMENTS: 


<D> 3-ELEMENT NUMERIC VECTOR OR Nx3 MATRIX 
A VECTOR IS TREATED AS A 1x3 MATRIX. 


D[31] = MONTH 

DC;2] = DAY 

D(33] = YEAR 
RESULT: 


<¥> | NUMERIC VECTOR 
Y(I] IS THE GREGORIAN DAY COUNT FOR D{I;). 


NOTE THAT 7\¥(I) GIVES THE DAY OF THE WEEK FOR THE I-TH DATE, AS 
FOLLOWS: SUNDAY=0, MONDAY=1, TUESDAY=2, WEDNESDAY=3, THURSDAY=4, 
FRIDAY=5, SATURDAY=6 


SOURCE: 


ADAPTED FROM THE APL HANDBOOK OF TECHNIQUES, 1977, (IBM). 
EXAMPLES: 


O+M+2 3p5 17 1977 5 12 1988 
5 17:1977 
5 12 1988 
DAYS M 
721856 725869 


1900 WAS NOT A LEAP YEAR, BUT 2000 WILL BE A LEAP YEAR. CONSIDER THE 
DIFFERENCE BETWEEN FEBRUARY 28, 1900 AND MARCH 1, 1900, AND 
FEBRUARY 28, 2000 AND MARCH 1, 2000. 

O+M+4 3p2 28 1900 3 1 1900 2 28 2000 3 1 2000 


2 28 1900 
3 1 1900 
2 28 2000 
3 1 2000 
O+Z+DAYS M 


693654 693655 730178 730180 
(-/202 11), -/Z£4 3] 
12 


seeee WHAT DAY IS MAY 13, 1988? IT IS DAY 5 (FRIDAY). 
7IDAYS 5 13 1988 
5 
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‘<YS> NUMERIC VECTOR 


YS(i] YEAR, E.G. 1988 
YS(2] OPTIONAL CALENDAR STYLE (SEE <JULIAN>) 


<Y> CHARACTER VECTOR 
MESSAGE DENOTING DATE OF EASTER 


SOURCE: 
THE APL HANDBOOK OF TECHNIQUES, 1977, (IBM). 
THE ALGORITHM WAS ADAPTED FROM KNUTH, VOLUME II. 


EXAMPLES: 

BASTER 1987 
EASTER OW APRIL 19, 1987 
BASTER 1988 
EASTER OW APRIL 3, 1988 
EASTER 1989 
EASTER ON MARCH 26, 1989 
BASTER 1990 
EASTER OW APRIL 15, 1990 
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Z+JULIAN DATE 
RETURN JULIAN DAY NUMBER OF <DATE> = MONTH,DAY,YEAR 


THE JULIAN DAY IS A CONTINUOUS DAY COUNT THAT STARTS AT 0 ON NOON, 
1/1/4712 (THAT IS, 4713 B.C.). THE JULIAN DAY IS A VERY USEFUL QUANTITY 
FOR CALCULATING WITH DATES. SEE EXAMPLES. 


WHEN COMPUTING WITH JULIAN DAYS (AS IN <JULIAN> AND <CJULIAN>), ONE MUST 
TAKE INTO ACCOUNT THE STYLE OF CALENDAR BEING USED. STYLE IS OPTIONAL 
FOR THESE FUNCTIONS. IF LEFT OUT, IT DEFAULTS TO 1 (NEW STYLE) IF THE 
DATE IS ON OR AFTER SEPTEMBER 14, 1752, AND DEFAULTS TO 0 (OLD STYLE) IF 
THE DATE IS BEFORE THAT. HOWEVER, STYLE CAN BE SPECIFIED IF THE DEFAULT 
VALUE IS NOT CORRECT, FOR EXAMPLE, IN RUSSIA BETWEEN 1752 AND THE RUSSIAN 
REVOLUTION (1917), WHEN THE OLD STYLE CALENDAR WAS STILL IN EFFECT. 


ARGUMENTS: 


<DATE> 3-ELEMENT NUMERIC VECTOR, Nx3 MATRIX, OR Wx4 MATRIX 
A 3-ELEMENT VECTOR IS TREATED AS AW Nx3 MATRIX. 


DATE(;1] = MONTE 
DATE(;2] DAY 
YEAR 


DATE(;4] = STYLE OF CALENDAR (OPTIONAL) 
0 = OLD STYLE 
1 = NEW STYLE 


RESULT: 


<Z> NUMERIC MATRIX 


<Z> IS A VECTOR OF JULIAN DATES CORRESPONDING TO THE DATES <DATE>. 

(pZ) = 1tpDATE 

<Z(I]> IS THE NUMBER OF DAYS BETWEEN 1/1/~4712 AND <DATE(I;]>. 

IF STYLE IS SPECIFIED, THAT STYLE CALENDAR IS USED TO COMPUTE THE JULIAN 
DATE. OTHERWISE, THE STYLE OF CALENDAR TO BE USED IS COMPUTED FROM THE 
DATE ITSELF, ASSUMING THAT THE NEW STYLE CANE INTO EFFECT AFTER 1752. 


NOTE THAT 7\1+Z(I] GIVES THE DAY OF THE WEEK FOR THE I-TH DATE, AS 
FOLLOWS: SUNDAY=0, MONDAY=1, TUESDAY=2, WEDNESDAY=3, THURSDAY=4, 
FRIDAY=S, SATURDAY=6 


SOURCE: 
THE APL HANDBOOK OF TECHNIQUES, 1977, IBM. (REFER TO <DAYNO>). 
EXAMPLES: 


O+M+2 3p5 17 1977 5 12 1988 
5 17 1977 
5 12 1988 
JULIAN M 
2443281 2447294 


1900 WAS NOT A LEAP YEAR, BUT 2000 WILL BE A LEAP YEAR. CONSIDER THE 
DIFFERENCE IN JULIAN DATES BETWEEN FEBRUARY 28, 1900 AND MARCH 1, 1900, AND 
FEBRUARY 28, 2000 AND MARCH 1, 2000. 

O+M+4 3p2 28 1900 3 1 1900 2 28 2000 3 1 2000 


2 28 1900 
3 1 1900 
2 28 2000 
3 1 2000 


O+Z<JULIAN M 
2415079 2415080 2451603 2451605 
(-/2(2 1]), -/2€4 3] 
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«+ WHAT DAY IS MAY 12, 1988? IT IS DAY 4% (THURSDAY). 


7|1+JULIAW 5 12 1988 


THE NEXT DAY IS FRIDAY THE 13-TH! OH, WELL ... 
IT IS ALSO PAYDAY, SINCE IT IS THE CLOSEST FRIDAY ON OR BEFORE 
THE 15-TH OF THE MONTH, AS COMPUTED BY THE FUNCTION <PAYDAY> ... 
PAYDAY 5 15 1988 
5 13 1988 1 


THE JULIAN DAY IS RELATED TO'THE PHASES OF THE MOON, AS DEFINED BY THE 
FUNCTION <MOONPHASE> ... 
MOONPHASE S 12 1988 
88 


«eee. SEE FUNCTION LISTINGS FOR <PAYDAY> AND <MOONPHASE> 


WHAT IS THE AGE IN DAYS OF THE TWENTIETH CENTURY? 
O+Z+JULIAN 2 3912 5 1988 1 1 1901. 

2447501 2415386 
-/% 

32115 


IF THE OLD STYLE CALENDAR WAS IN USE AFTER 1752, AS FOR RUSSIA BEFORE THE 
REVOLUTION IN 1917, THE OLD STYLE CALENDAR MUST BE SPECIFIED. FOR EXAMPLE, 
FEBRUARY 28, 1900 HAS A DIFFERENT JULIAN DATE IN RUSSIA COMPARED WITH NORTH 
AMERICA ... 

JULIAN 2 4%p2 28 1900 0 2 28 1900 1 


2415091 2415079 
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R+NDYOFORD X 
RETURN THE MONTH,DAY,YEAR BQUIVALENT OF ORDINAL DATE <X> 


INTRODUCTION: 


THIS IS THE INVERSE TO <ORDOFNDY>. 
ARGUMENTS: 


<I> NUMERIC VECTOR 
<X> IS VECTOR OF ORDINAL DATES 


RESULTS: 
<R> Nx3 NUMERIC MATRIX 
RC31] = MONTE 
RC32] = DAY 
R(;3] = YEAR 
BIAMPLES: 
O+M+5 3p5 12 1988.6 20 1947 12 8 1984 1 23 1950 5 17 1977 


12 1988 


5 
6 
2 
1 
5 17 1977 
MDYOFORD ORDOFNDY 
5s 12 1988 
6 20 1947 
2 8 1984 
1 23 1950 
5 17 1977 


1 


eeeee LEAP YEARS ARE TAKEN INTO ACCOUNT 
M+4 392 28 1987 3 1 1987 2 28 1988 3 1 1988 
O+Z+ORDOFMDY N 
87059 87060 88059 88061 
MDYOFORD Z 
2 28 1987 
3 1 1987 
2 28 1988 
3 1 1988 
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Y«ORDOFMDY D 
RETURN THE ORDINAL DATE EQUIVALENT OF <D> MONTH, DAY ,YEAR 


INTRODUCTION: 


THE ORDINAL DATE OF A DATE <D> IN MONTH,DAY,YEAR FORM IS THE EQUIVALENT 
DAY NUMBER (1 TO 366) OF THE DAY. FOR EXAMPLE, THE ORDINAL DATE OF JUNE 
20, 1947 IS 47171, THAT IS, THE 171-TH DAY OF 1947. 


THIS FUNCTION AND ITS INVERSE, <MDYOFORD>, TAKES LEAP YEARS INTO ACCOUNT. 


ARGUMENTS: 


<D> 3-ELEMENT NUMERIC VECTOR OR Nx3 MATRIX 
A VECTOR IS TREATED AS A 1x3 MATRIX. 


DC;1] = MONTH 

D(32) = DAY 

DE;3] = YEAR 
RESULT: 


<Y> NUMERIC VECTOR 
<Y> IS VECTOR OF ORDINAL DATES CORRESPONDING TO <D>. 


EXAMPLES: 


ORDOFMDY 5 12 1988 


O+M+5 3p5 12 1988 6 20 1947 12 8 1984 1 23 1950 5 17 1977 
5 12 1988 
6 20 1947 
12 8 1984 
1 23 1950 
5 17 1977 
ORDOFMDY M 
88133 47171 84343 50023 77137 


seeee LEAP YEARS ARE TAKEN INTO ACCOUNT 
D+M+4 392 28 1987 3 1 1987 2 28 1988 3 1 1988 


2 28 1987 
3 1 1987 
2 28 1988 
3 1 1988 
ORDOFMDY M 


87059 87060 88059 88061 


seees WHAT IS ORDINAL DATE OF DAY 200 DAYS FROM JUNE 20, 19887 
seeee ADD 200 TO THE JULIAN DATE, THEN CONVERT TO ORDINAL FORM. 
JULIAN 6 20 1988 
2447333 
200+JULIAN 6 20 1988 
2447533 
CJULIAN 200+JULIAN 6 20 1988 
1 6 1989 1 
ORDOFMDY 3pCJULIAN 200+JULIAN 6 20 1988 
89006 
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Y+D CONDENSE V 
REMOVE LEADING, TRAILING, AND MULTIPLE BLANKS, THEN BLANKS AROUND <D> 


THIS FUNCTION IS USEFUL FOR MASSAGING CERTAIN TYPES OF CHARACTER VECTORS, 
FOR EXAMPLE, ‘COMMAND-PARAMETER' INPUT. THE DEFINITION OF THIS FUNCTION 
IS TAKEN FROM Y+D QDRB V (DELETE REDUNDANT BLANKS), A SYSTEM FUNCTION IN 
APL.68000. IT REMOVES REDUNDANT BLANKS (WHICH IS WHAT ADB DOES), AND IT 
ALSO DELETES BLANKS SURROUNDING A GIVEN SET OF DELIMITERS. AFTER USING 
<CONDENSE> THE 'FIELDS' DELIMITED BY THE 'DELIMITERS' <D> CAN BE REMOVED 
FROM <Y> WITHOUT FURTHER NEBD TO STRIP BLANK CHARACTERS. 


ARGUMENTS: 
<D> CHARACTER VECTOR 
THIS IS A CHARACTER VECTOR OF ONE OR MORE DELIMITERS 


<V> CHARACTER VECTOR 
THIS IS THE CHARACTER VECTOR TO BE ‘CONDENSED' 


RESULT: 

<Y> CHARACTER VECTOR. 
ALL LEADING, TRAILING, AND MULTIPLE INTERNAL BLANKS ARE REMOVED 
FURTHERMORE, ALL BLANKS AROUND ANY OF THE CHARACTERS CONTAINED IN <D> ARE 
REMOVED. 


EXAMPLES: 


FRAME V+' APPLE , BETTY , CAT ,, DOG . 
( APPLE , BETTY , CAT ,, DOG ) 


«++. NOTE THAT BLANKS AROUND DELIMITER <,> ARB REMOVED AS WELL AS 
«ee. LEADING, TRAILING AND REDUNDANT BLANKS 

FRAME ',' CONDENSE V 
(APPLE, BETTY ,CAT, ,DOG) 


aNOW TWO DELIMITERS ARE USED. COMPARE THE RESULTS. 
V+'PRINT * FILENAME , SUMMARY 3: READ, FILENAME, . 
',' CONDENSE V 
PRINT ,FILENAME,SUMMARY ; READ,FILENAME, 
',3' CONDENSE V 
PRINT , FILENAME , SUMMARY ; READ, FILENAME, 
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Y+D CONDENSE1 V 
REMOVE LEADING, TRAILING, AND MULTIPLE BLANKS, ALSO BLANKS AROUND <D> 


THIS FUNCTION IS SIMILAR TO CONDENSE EXCEPT THAT BLANKS ARE NOT REMOVED 
FROM WITHIN QUOTED STRINGS. 


ARGUMENTS: 
<D> CHARACTER VECTOR 
THIS IS A CHARACTER VECTOR OF ONE OR MORE DELIMITERS 


<V> CHARACTER VECTOR 
THIS IS THE CHARACTER VECTOR TO BE ‘CONDENSED' 


RESULT: 

<Y> CHARACTER VECTOR. 
ALL LEADING, TRAILING, AND MULTIPLE INTERNAL BLANKS ARE REMOVED ALSO, ALL 
BLANKS AROUND ANY OF THE CHARACTERS CONTAINED IN <D> ARE REMOVED. 
HOWEVER, THE BLANKS WITHIN QUOTES ARE NOT REMOVED. 


EXAMPLES: 
FRAME V+' APPLE , ‘*BETTY , CAT'' ,, DOG iJ 
( APPLE , ‘BETTY , CAT' ,, DOG ) 


ABLANKS AROUND DELIMITER <,> ARE REMOVED, BUT NOT WITHIN QUOTES 
FRAME ',' CONDENSE1 V 
(APPLE,'BBTTY , CAT',,DOG) 


any TWO DELIMITERS ARE USED 

+" PRINT ‘*THE CAT AND THE HAT; WHAT IS THAT?** ; . 
ey te CONDENSE1 Vv 7 ee 
PRINT,'THE CAT AND THE HAT; WHAT IS THAT?';READ,FILE 
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Y*aDB V 
DELETE BLANKS (LEADING, TRAILING, AND MULTIPLE) FROM <V> 


DELETING ‘REDUNDANT’ BLANKS IS A VERY USEFUL OPERATION. THE ADVANTAGE OF 
THE DEFINITION GIVEN HERE IS THAT THE FUNCTION ACCEPTS VECTORS AND 
MATRICES. 


THE COMPANION FUNCTIONS <ADLB> AND <ADTB>, TO DELETE LEADING BLANKS AND 
TRAILING BLANKS, RESPECTIVELY, ARE NOT SO COMMONLY USED, BUT ARE INCLUDED 
IN THE TOOLKIT FOR COMPLETENESS. THEY ALSO ACCEPT BOTH VECTORS AND 
MATRICES. 


ARGUMENTS: 


<V> CHARACTER ARRAY (RANK 0 TO 2) 


RESULT: 

<Y> CHARACTER ARRAY 
THE RESULT IS <V> WITH ALL LEADING AND TRAILING BLANKS REMOVED. FOR 
A MATRIX, LEADING BLANK COLUMNS (I.E. COLUMNS WHICH ARE COMPLETELY 
BLANK) AND TRAILING BLANK COLUMNS ARE REMOVED. FURTHERMORE, ALL 
INTERNAL BLANK FIELDS (OR CONCURRENT BLANK COLUMNS) ARE REPLACED 
BY A SINGLE BLANK FIELD (COLUMN). 


EXAMPLES: 

aVECTOR 

FRAME V+" APPLE BETTY cat . 
( APPLE BETTY CAT ) 

FRAME ADB V 


(APPLE BETTY CAT) 
FRAME ADB ‘APPLE BETTY CAT‘ 
(APPLE BETTY CAT) 


aMATRIX 
FRAME M+M,M+(3 2p' '),(*/* ABOX 'APPLE/BETTY/CAT'),' ' 
(| APPLE APPLE ) 
(| BETTY BETTY ) 
(| Cat CAT ) 
FRAME ADB M 
(APPLE APPLE) 
(BETTY BETTY) 
(CAT CAT ) 


AEMPTY VECTOR 
FRAME ADB '' 
O 


AEMPTY MATRIX 
FRAME ADB 2 Op'' 


QO 
O 


«+. NOTE DEFINITION OF FRAME 
Vv Y«+FRAME X 
(1]  a'FRAME' AN ARRAY <X> WITH A CHARACTER 
(2] a.XK LIBRARY-UTILITY 
[3] Yer(',x,')" 
v 
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Y+c apc V 
DELETE CHARACTER <C> (LEADING, TRAILING, AND MULTIPLE) FROM <¥> 


INTRODUCTION: 


THE FUNCTION ADC IS MORE GENERAL THAN THE CORRESPONDING FUNCTION <ADB> FOR 
DELETING BLANKS, IN THE SENSE THAT ' * ADC V WILL DELETE BLANKS AS A 
SPECIAL CASE. THEREFORE, IF IT WERE GENERALLY POSSIBLE WITHIN APL TO 
DEFAULT THE LEFT ARGUMENT OF A DEFINED FUNCTION, IT WOULD BE A GOOD IDEA 
TO ALLOW THE SYNTAX Y+sDC V. (MAKE A TEST IN THE FUNCTIONS FOR MISSING 
LEFT ARGUMENT. IF MISSING, SET C+' ' AND CONTINUE.) THIS MAKES 
UNNECESSARY HAVING A SEPARATE FUNCTION FOR DELETING BLANKS. 


SIMILAR REMARKS CAN BE MADE FOR ADLC (ADLB) AND ADTC (ADTB). 


ARGUMENTS: 
<C> SCALAR OR 1-EBLEMENT VECTOR 
CHARACTER TO BE DELETED 


<V> CHARACTER ARRAY (RANK 0 TO 2) 


RESULT: 

<¥> CHARACTER ARRAY 
THE RESULT IS <V> WITH ALL LEADING AND TRAILING CHARACTERS <C> REMOVED. 
FOR A MATRIX, LEADING COLUMNS THAT ARE ENTIRELY FILLED WITH <C>, 
SIMILARLY FOR TRAILING COLUMNS, ARE REMOVED. FURTHERMORE, ALL INTERNAL 
<C> FIELDS (OR CONCURRENT COLUMNS) ARE REPLACED BY A SINGLE CHARACTER 
FIBLD (COLUMN). 


EXAMPLES: 

O+v+'000 aPpce 0 Berry O00 car OO0' 
OOO appre O Berry OOO car O00 

‘'O’ apc v 
APPLE (| BETTY Q CaT 


aMATRIX 
O+M+M,M+(3 2p'0'),('/O" ABOX ‘APPLE/BETTY/CAT'),'O' 
OO4PPLEQOOAPPLEQ * 
OOserrrOooserrro 
OOcaroooo0carooo 
'O' apc M 
APPLEQAPPLE 
BETTYOBETTY 
earooocaroo 


ADELETE BLANKS WHEN <C>= ' * OR '* 

FRAME * ' ADC ‘APPLE BETTY CAT f 
(APPLE BETTY CAT) 

FRAME '' ADC ‘APPLE BETTY CAT 7 
(APPLE BETTY CAT) 


ABMPTY VECTOR 
FRAME 'Q' apc '' 
O 
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Y+aDLB V 
DELETE LEADING BLANKS FROM <V> (RANK 0 - 2) 


WHEN CONSIDERING THE SET OF FUNCTIONS <ADB, ADLB, ADTB> AND THEIR 


COUNTERPARTS, <ADC> ETC., A FUNCTION CALLED DEPAD (OR DEBLANK OR SQZ) WAS 


SUGGESTED, WITH THE FOLLOWING SYNTAX: 
Y*+CODE DEPAD V 
DELETE LEADING BLANKS 
DELETE REDUNDANT BLANKS 
CODE="1:DELETE TRAILING BLANKS 
IF CODE IS LEFT OUT, DEFAULT TO CODE=0. 


WITH THIS SUGGESTION, IF CODE (THE LEFT ARGUMENT) IS DEFAULTED, THE 


DEFAULT VALUE DETERMINES A DIFFERENT ALGORITHM. 
END UP WITH TWO FUNCTIONS, DEPAD AND DEPADC. 


FURTHERMORE, ONE WOULD 


WITH THE SCHEME CHOSEN FOR THE TOOLKIT, THE LEFT ARGUMENT AFFECTS THE 
CHARACTER DELETED. IF THE LEFT ARGUMENT IS DEFAULTED, A DIFFERENT 
CHARACTER IS CHOSEN. FOR <Y¥+C ADC W>, WHEN <C> IS DEFAULTED, AS <'' ADC 


V>, THE DEFAULT IS THE BLANK CHARACTER. 


THIS SEEMS TO BE A MORE COHERENT APPROACH. WHEN AN ARGUMENT IS DEFAULTED, 


THE DEFAULT VALUE SHOULD BE THE SAME 'KIND OF THING' 


AS THE OTHER 


POSSIBLE VALUES. IN THIS APPROACH ONE ENDS UP WITH THREE FUNCTIONS, DC, 
DTC, AND DLC. (WE ARE IGNORING THE FACT THAT AT THIS TIME ONE CANNOT 


FULLY LEAVE OUT THE LEFT ARGUMENT.) 


ANOTHER APPROACH IS TO CONSIDER THAT DELETING REDUNDANT BLANKS IS FAR NORE 


COMMONLY USED THAN DELETING LEADING AND/OR TRAILING BLAWKS. 


THEREFORE, A 


FUNCTION FOR DELETING REDUNDANT CHARACTERS <DC> WOULD WATURALLY BE USED, 


WITH THE REDUNDANT CHARACTER USUALLY BEING THE BLANK CHARACTER. 


ONE 


MIGHT NOT NATURALLY THINK OF A GENERAL FUNCTION TO DELETE BLANKS, WITH 


THE USUAL USE BEING TO DELETE REDUNDANT BLANKS. 
EXAMPLES: 


aVECTOR 

FRAME V+" APPLE BETTY CAT s 
( APPLE BETTY CAT ) 

FRAME ADLB V 
(APPLE BETTY CAT ) 

FRAME ADLB ‘APPLE BETTY CAT’ 
(APPLE BETTY CAT) 


aMATRIX 
FRAME M+(3 2p' '),('/' ABOX ‘APPLE/BETTY/CAT'),* 
(| APPLE ) 
(| BETTY ) 
( CaT ) 
FRAME ADLB M 
(APPLE ) 
(BETTY ) 
(CAT ) 


AaEMPTY VECTOR 
FRAME ADLB '* 
QO 
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Y+C aDLC V 
DELETE LEADING CHARACTER <C> FROM <V> (RANK 0 - 2) 


EXAMPLES: 

aVECTOR 

FRAME V+'QO0 APPLE BETTY CAT OO0' 
(000 «PPLE BETTY caT O00) 

FRAME ‘()' aDLC V 
( APPLE BETTY caT OOO) 

FRAME ‘()!' ADLC ‘APPLE BETTY CAT' 
(APPLE BETTY CAT) 


aMATRIX 
O+w+(3 2p'0'),(*/0" aBOxX ‘APPLE/BETTY/CéT'),‘O" 


FRAME '()' ADLC N 
(APPLBO) 
(BerrYO) 
(carood) 


AREMOVE BLANKS WHEN <C>= ' ' QR '' 

FRAME ' ‘ ADLC * APPLE BETTY CAT‘ 
(APPLE BETTY CAT) 

FRAME '' ADLC * APPLE BETTY CAT‘ 
(APPLE BETTY CAT) 


AaEMPTY VECTOR 
FRAME 'Q)' aDLC °° 


12) 
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1+aDTB Vv 
DELETE TRAILING BLANKS FROM <¥> (RANK 0 - 2) 


aVECTOR 

FRAME V+' APPLE BETTY CAT § 
( APPLE BETTY CAT. ) 

FRAME ADTB V 
( APPLE BETTY CAT) 

FRAME ADTB ‘APPLE BETTY CAT‘ 
(APPLE BETTY CAT) 


aMATRIZ : 
FRAME M+(3 2p' '),('/' ABOX ‘APPLE/BETTY/CAT'),' ' 
APPLE ) 
BETTY ) 
CcaT ) 
FRAME ADTB N 
APPLE) 
BETTY) 
caT ) 


ABMPTY VECTOR 
FRAME ADTB '' 


19) 


DELETE-CHARACTERS 
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Y+c aDTC V 
DELETE TRAILING CHARACTER <C> FROM <¥> (RAWK 0 - 2) 


aVECTOR 

‘FRAME V+'QO0 4PPLE BETTY CAT QOO' 
(O00 aPPLe BETTY caT OOO) 

FRAME 'Q' aDTC Vv 
(O00 «PPLE BETTY CAT ) 

FRAME 'Q' ADTC ‘APPLE BETTY CAT’ 
(APPLE BETTY CAT) 


aNATRIX 
O+M+(3 2p'0"),('/0" aBOx ‘APPLE/BETTY/CaT'),'O" 
OO4PPLeE0 
OOseTrro 
Oca 
FRANE '()' aDTC N 
(OO4PPLE) 
(OOBzrry ) 
(O0¢ear00) 
ADELETE BLANKS WHEN <C>= ' ' OR '' 
FRAME ' ' aDTC ‘APPLE BETTY CAT ' 
(APPLE BETTY CAT) 
FRAME ‘' ADTC ‘APPLE BETTY CAT ’ 


(APPLE BETTY CAT) 


ABMPTY VECTOR 
FRANE 'O' aptc '' 


QO 
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Y«+DDUP X 
DELETE DUPLICATE ELEMENTS FROM VECTOR OR MATRIX <I> 


<DDUP> DELETES DUPLICATE ELEMENTS FROM A VECTOR OR MATRIX. AWN ELEMENT IS 
TAKEN TO MEAN <X(I]> FOR VECTOR <X>, AND <X(I;]> FOR MATRIX <X>. IN 
OTHER WORDS, IT RETURNS THE UNIQUE ‘ITEMS' OF THE ARRAY. 


ALTHOUGH <DDUP> IS MERELY AN APPLICATION OF COMPRESSION AND <FIRST>, IT 
PROVIDES VERY USEFUL SYNTAX FOR DELETING DUPLICATES. 


ARGUMENTS: 


RESULT: 


<Y> VECTOR OR MATRIX 
THE ARRAY CONSISTS OF THE UNIQUE ITEMS OF <X>, THAT IS, <X> WITH ALL 
DUPLICATE ITEMS REMOVED. 


NOTES: 


ANOTHER INTERESTING IMPLEMENTATION OF <DDUP> USES SORTING, AS ILLUSTRATED 
BY THE FUNCTION <F7> ... 


Vv Y+F7 M3438 
(1] DELETE DUPLICATE ROWS FROM MATRIX <N> 
(2] ALTERNATE ALGORITHM FOR DDUP -- USES SORTING 
[3] aSORT MATRIX <M>. THIS BRINGS TOGETHER ALL DUPLICATE ROWS 
(4] a4e'' SORT M 
(5] COMPUTE BREAK POINTS 
[6] (I.E. POSITION OF FIRST ROW OF EACH SET OF DUPLICATES) 
C7] B+BP A 
[8] SELECT UNIQUE ROWS 
(9] Y+(BP A)/A 
v 


EXAMPLES: 
seeee THE CASE OF MATRICES 
O+M+'/' aBOX ‘APPLE/BETTY/APPLE/DOG/CAT/CAT/BETTY/APPLE' 
APPLE 
BETTY 
APPLE 
Doc 
CAT 
cat 
BETTY 
APPLE 
DDUP M 
APPLE 
BETTY 
DOG 
cat 
O+M+6 2914 


ENENEN 


DDUP M 


ey wRononm 


Nn 
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34 
«+ THE CASE OF VECTORS 


DbDUP * ABCDCDEABLCLABKCIEFGHIGJKKZZYX $ 


ABC. IFGHIZYX 
DDUP ‘APPLE/BETTY/CAT‘ 
APLE/BTYC 


eeeee THE FUNCTION WORKS WITH NUMERIC ARGUMENTS TOO 
DDUP 1 2 3 10 20 3 21 20 
123 10 20 


ETE-ELENENTS 
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P+D SUPPRESS V 
SUPPRESS CHARACTERS IN MATRIX 


THIS FUNCTION IS SOMEWHAT SPECIAL-PURPOSE. HOWEVER, THE FUNCTION IS WORTH 
STUDYING AS IT ILLUSTRATES USEFUL ALGORITHMS. NOTE THE METHOD USED TO 
DETERMINE THE CHARACTERS THAT LIE BETWEEN TWO 'DELIMITER' CHARACTERS. 
NOTE ALSO THE METHOD OF SUPPRESSING CHARACTERS. THE FUNCTION APPENDS A 
SECOND PLANE OF BLANKS, ROTATES SELECTED ELEMENTS INTO THE SECOND PLANE, 
THEN DISCARDS THE SECOND PLANE. 

P+MASKO[1] V,[0.5] ' * 

P+SHAPEpP(133 


ARGUMENTS: 
<D> 2-ELEMENT CHARACTER VECTOR 
THIS VECTOR REPRESENTS THE TWO DELIMITERS BETWEEN WHICH THE CHARACTERS ARE 
SUPPRESSED. 
D(1] = D{[2] NO NESTING OF DELIMITERS IS ALLOWED 
D(1] # D{[2] NESTING LEVEL IS ARBITRARILY SET TO 1 


<V> CHARACTER VECTOR OR MATRIX 
A VECTOR IS TREATED AS A 1-ROW MATRIX. THIS MgFRIX IS ANALYZED FOR THE 
PRESENCE OF THE DELIMITER CHARACTERS. ~ 


RESULT: 


<P> CHARACTER VECTOR OR MATRIX 
THE ARRAY <V> WITH THE CHARACTERS BETWEEN DELIMITERS SUPPRESSED. 


EXAMPLES: 


ve 'Re(M,(1]-/£2](+\C1] 0,1] M)(OP+(pP)p O 1 3) CAC. itpM),PL32]13]" 
"()" SUPPRESS V 

Re Ch »P(3213] 
'L]' SUPPRESS V 

R+e(M, -/(#\ Oo, M) ) 


O+L+'(p'*4PPLE'') + (p''BETTY'')' 
(p'APPLE') + (p'BETTY') 
seeeee ASSIGN TWO QUOTE CHARACTERS TO D (THESE ARE THE DELIMITERS) 
Detteere 
ef O 
D SUPPRESS L 
(p > + (p ) 
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R+EXPANDAF W 
<R> IS EXPANSION VECTOR TO INSERT <W(I]p0> AFTER THE I-TH POSITION 


INTRODUCTION 


THIS FUNCTION IS SIMILAR TO <EXPANDBE>, EXCEPT THAT IT RETURNS EXPANSION 
VECTORS TO EXPAND AFTER POSITIONS SPECIFIED BY <W>. SEE THE DOCUMENT ON 
<EXPANDBE> FOR MORE NOTES. 


ARGUMENTS: 

<W> VECTOR 
WCI]>0 INDICATES TO INSERT Wp0 AFTER POSITION I IN <R> 
W(I]=0 INDICATES NOT TO INSERT ANYTHING 


RESULT: 
<R> BOOLEAN VECTOR 
THIS VECTOR IS AN EXPANSION VECTOR BASED ON <W>. 


<EXPANDAF> IS RELATED TO <EXPANDBE>. SUPPOSE <B> DEFINES A SET OF 
POSITIONS (INDICES) IN AN ARRAY.- THEN THE EXPANSION VECTOR <BXPANDAF B> 
IS GIVEN BY < —1+EXPANDBE 0,B >. FOR EXAMPLE .... 
Bel 0 0 
EXPANDAF B 
toad 
14EXPANDBE 0,B 
1011° 


BXAMPLES: 

weeee PRODUCE EXPANSION VECTOR TO INSERT 2p0 AFTER ELEMENTS 2, 4, ETC. 
Wei 23456 
EXPANDAF (pV)p0 2 

110011001100 
(BXPANDAF (p¥)p 0 2)\V 

120034005600 


weees INSERT 190 AFTER FIRST ELEMENT, 2p0 AFTER SECOND ELEMENT, ETC. 
(BXPANDAF 1pV)\V 
102003000400005000006000000 


«eee. INSERT 0 AFTER THE SECOND ELEMENT OF A GIVEN VECTOR 
(EXPANDAF (p¥)tO 1 )\V 

1203456 

eeees THIS IS EQUIVALENT TO (BUT MUCE SIMPLER THAN) THE FOLLOWING ... 
(1 1:0,(°2+pV)p1)\F 

1203456 


seees INSERT A_ZERO AFTER EVERY NEGATIVE NUMBER IN A VECTOR 
V+10 20 “1.30 40 “2 50 3 
(EXPANDAF ~1=*V)\V _ 

10 20°10 30 40°20 50°30 


«ees. INSERT 2 BLANK COLUMNS AFTER COLUMN OF A MATRIX 
V+'/* ABOX 'APPLE/BETTY/CAT' 
(EXPANDAF ("1+p¥)p2)\¥ 
APPLE 
BET fT ¥ 
Cc AT 
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R+EXPANDBE W 
<R> IS EXPANSION VECTOR TO INSERT <W(I]p0> BEFORE THE I-TH POSITION 


INTRODUCTION 
IT IS & COMMON REQUIREMENT TO EXPAND AN ARRAY ALONG A CERTAIN DIMENSION 
BASED ON SOME CRITERION. FOR EXAMPLE, INSERT A ROW BEFORE ROW 3 AND ROW S 
OF AN ARRAY, OR INSERT 0 BEFORE EACH NEGATIVE ELEMENT OF A VECTOR. 
<EXPANDBE> PRODUCES A SUITABLE EXPANSION VECTOR BASED ON THE 
SPECIFICATION IN <W>, IN ORDER TO PERFORM THIS TYPE OF OPERATION. 


ARGUMENTS: 

<W> VECTOR 
W[I]>0 INDICATES TO INSERT Wp0 BEFORE POSITION I IN <R> 
W[I]=0 INDICATES NOT TO INSERT ANYTHING 


RESULT: 


<R> BOOLEAN VECTOR 
THIS VECTOR IS AN EXPANSION VECTOR BASED ON <W>. 


BIAMPLES: 

«sees PRODUCE EXPANSION VECTOR TO INSERT 2p0 BEFORE ELEMENTS 2, 4, BTC. 
Vel 23456 
BXPANDBE (pV)pO 2 

100110011001 
(EXPANDBE (p¥V)p 0 2)\7 

100230045006 


«eee. INSERT 1p0 BEFORE FIRST ELEMENT, 2p0 BEFORE SECOND ELENENT, ETC. 
(BXPANDBE .pV)\V 
01002000300004%0000050000006 


«sees INSERT 0 BEFORE THE SECOND ELEMENT OF A GIVEN VECTOR 
(BXPANDBE (pV)+0 1 )\V 

1023456 

seeee THIS IS EQUIVALENT TO (BUT MUCH SIMPLER THAN) THE FOLLOWING ... 
(1 0,(°1+p7)p1)\V 

1023456 


seees INSERT A_ZERO BEFORE EVERY NEGATIVE NUMBER IN A VECTOR 
¥+10 20 “1.30 40 ~2 50 “3 
(BXPANDBE ~1=x¥)\V _ 

10 200 1 30 400250073 


«ess. INSERT 2 BLANK ROWS BEFORE EACH 'BREAKPOINT' IN A MATRIX 
V+'/* ABOX 'APPLE/APPLE/BETTY/BETTY' 
(BXPANDBE 2xBP V)\V 


PAGE 6-32 ADJUST FORMATTING 
Y«X ADJUST D 
ADJUST EACH ROW OF MATRIX <D> ACCORDING TO PARAMETERS <X> 


INTRODUCTION: 


THIS FUNCTION CAN BE USED TO ADJUST THE WIDTH OF A TEXT MATRIX FOR DISPLAY 
PURPOSES ON A SCREEN OR A PRINTER WITH LIMITED WIDTH. THE ROWS OF THE 
MATRIX REPRESENT LINES OF THE ‘DOCUMENT' AND IT IS INTENDED THAT THE 
LINES BE PRESERVED. THE DOCUMENT COULD BE THE DISPLAY FORM OF A FUNCTION. 


THIS FUNCTION USES THE FUNCTION 'SPLIT' TO ‘FOLD' OR ‘SPLIT’ THE LINES OF 
THE DOCUMENT. 


ARGUMENTS: 


<I> 3-ELEMENT NUMERIC VECTOR 
X(1] WIDTH OF RESULT IN COLUMNS 
X(2] WIDTH OF LEFT MARGIN (I.E. NUMBER OF BLANK COLUMNS) 
X(3] NUMBER OF BLANK LINES TO INSERT BETWEEN BACH ROW 


X(2] AND X(3] DEFAULT TO 0. 
<D> CHARACTER MATRIX 


RESULT: 

<Y¥> CHARACTER MATRIX 
THE RESULT IS THE MATRIX <D> WITH LINES ADJUSTED ACCORDING TO THE 
SPECIFICATION IN <X> 


EXAMPLES: 
FIT A DOCUMENT 60 CHARACTERS WIDE INTO LINES OF LENGTH 50 
PUT 5 BLANKS IN FRONT OF EACH LINE 

50 5 ADJUST 3 60p'WORD ' 
WORD WORD WORD WORD WORD WORD WORD WORD WORD 

WORD WORD WORD 
WORD WORD WORD WORD WORD WORD WORD WORD WORD 

WORD WORD WORD 
WORD WORD WORD WORD WORD WORD WORD WORD WORD 

WORD WORD WORD 


++eeeADJUST THE DISPLAY FORM OF THE FUNCTION ‘MATRIX’ 
30 ADJUST DISPLAYFUNCTION (ICR ‘MATRIX' Se ne nara 
Vv Y+MATRIX X 
(1] RESHAPE ANY ARRAY <X> 
(RANK 0 - N) TO A MATRIX 
(2] #.K RESHAPE 
C3] Yye((x/"14 11 
2pX), 141,pX)pxX 
v 


oeeeeDNSERT 1 LINE BETWEEN EACH ROW (‘DOUBLE SPACE‘) 
40 0 1 ADJUST 2 SOp'WORD * 

WORD WORD WORD WORD WORD WORD WORD WORD 

WORD WORD 

WORD WORD WORD WORD WORD WORD WORD WORD 


WORD WORD 
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Y+BALANCE W 
DISPLAY BALANCE (NESTING LEVELS) IN TEXT VECTOR <N> 


INTRODUCTION: 

THIS FUNCTION PRODUCES PRODUCES A CLEARLY FORMATTED 'EXPLODED' DISPLAY OF 
TEXT. IT IS ESPECIALLY USEFUL WITH STATEMENT LINES CONTAINING TEXT 
WITHIN QUOTED CONSTANTS, PARENTHESES AND INDEX BRACKETS, THAT IS, TEXT 
WITHIN ‘BALANCED' DELIMITERS (HENCE THE WANE). SEE EXAMPLES. 


ARGUMENTS: 


<N> CHARACTER VECTOR 


TEXT TO BE ANALYZED 
RESULT: 


<¥> CHARACTER MATRIX 
THE 'EXPLODED' DISPLAY OF <N> 


SOURCE: 


ADAPTED FROM XREF WORKSPACE (IBM) 


BXAMPLES: 
BALANCE 'A+(pX)+((Y#0)/Y)xZ! 
7 ee hd eee bar 4 
px (...)/Y 
Y#0 


O+LINE+'"'CD'',((¥ 9 99),'*(L](DRDKD''),"'ADD'',,(5 5 p'te'*)L3 3 4)" 
"cD*,((¥ 9 99),°(LI(DKDKD'),*ADD',,(5 5 p'e")C3 3 4) 
2LINE 
CDS 99([](DKDKDADDeeeeeceere 
BALANCE LINE 
Veet elececece 
CD. Caisiee-es igh pene 
v999 (C1¢ 


cody toon aslevccsoesLeccced 


* ADD $Sp*.* 338 
. 


«eee. NOW CONSIDER A MORE COMPLEX AND REALISTIC BXAMPLE 
seees THE FOLLOWING APL STATEMENT MAY BE HARD TO ANALYZE AT FIRST SIGHT 


Re(M,CAJ-/(2](+\01] 0,01] M)(OP+(pP)p O 1 3])CACL1tpM),PL32]3] 


seeee USE <BALANCE> TO ANALYZE IT 
LINE+'Re(M,(1)-/(21(+\C1] 0,1] M)COP+(pP)p O 1 3])CACL1tpM),PL3213]' 
BALANCE LINE 
Re(cccccccccccccccccscccccscccce cocedLecccccccccceceed 
M,LoT-/L eV CccccccccccceedLoee eo] MMeeeee) PLeo3 
1 2 4\C.] 0,0.] M OP+(..)9 O13 Litem 32 
1 1 pP 


«sees ONE CAN NOW READILY SEE THE BASIC STRUCTURE OF THE LINE, NAMELY 
R+ (STUFF) (INDEX) 

«eeeeTHE SECOND LINE OF THE DISPLAY SHOWS WHAT (STUFF) IS, NAMELY 
(M,C1]-/(2] (STUFF) (INDEX]) 
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Z+DISPLAYFUNCTION A 
<Z> IS MATRIX DISPLAY FORM OF CANONICAL MATRIX <A> 


INTRODUCTION: 


MANY APL SYSTEMS HAVE SPECIAL FEATURES FOR PRODUCING FORMATTED FUNCTION 
LISTINGS. THE ONLY MECHANISM IN '‘STANDARD' APL IS THE CANONICAL MATRIX 
REPRESENTATION (RESULT OF (CR). HOWEVER, THIS MATRIX CAN BE USED AS 
ARGUMENT TO MANY DIFFERENT FUNCTIONS FOR A VARIETY OF DISPLAYS. FOR 
EXAMPLES, SEE THIS FUNCTION, <DISPLAYFUNCTION1> AND <BALANCE>. 


ARGUMENTS: 
<A> CHARACTER MATRIX 
THIS IS TYPICALLY THE CANONICAL MATRIX OF A FUNCTION. 


RESULT: 
<Z> CHARACTER MATRIX 
A DISPLAY FORM OF THE MATRIX <A> 


THE ALGORITHMS IN THE FUNCTION ARE VERY INSTRUCTIVE AND WORTHY OF STUDY 
FOR THE EXPRESSIONS. 


FOR SUGGESTIONS FOR MODIFICATION, REFER TO <DISPLAYFUNCTION1>. 
EXAMPLES: 


eeeee USING DISPLAYFUNCTION ON A SAMPLE FUNCTION 


DISPLAYFUNCTION OCR ‘F2° 

Vv F2 X;0103;2;43;V34R;TS 

[1] aBXAMPLE FOR DISPLAYFUNCTION AND SORTLOCAL 
(2] a.K EXAMPLE 
(3) 4x+,x 

C4] +(0ex)/END 
(5) x+rxerx 

(6) END: 

{7] O+'swD OF FUNCTION' 
v 
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Z+E DISPLAYFUNCTION1 A 
<Z> IS A DISPLAY FORM OF CANONICAL MATRIX <A> USING EXDENT <E> 


THIS MODIFIED VERSION OF <DISPLAYFUNCTION> (SEE NOTES) SUGGESTS DIFFERENT 
AND INNOVATIVE WAYS OF DISPLAYING A FUNCTION FOR SPECIFIC PURPOSES. THIS 
FUNCTION WAS USED TO DISPLAY THE TOOLKIT FUNCTION LISTINGS IN SECTION 5S. 


ARGUMENTS: 
<A> CHARACTER MATRIX 
THIS IS TYPICALLY THE CANONICAL MATRIX OF A FUNCTION. 


RESULT: 
<Z> CHARACTER MATRIX 
A DISPLAY FORM OF THE MATRIX <A> 


THE FUNCTION WAS MODIFIED FROM <DISPLAYFUNCTION> TO PRODUCE A DIFFERENT 
TYPE OF DISPLAY. Al3ile'a+' RATHER THAN AC;1]='a' BXDENTS ALL LINES 
BEGINNING WITH a AND + (COMMENTS AND BRANCH STATEMENTS). 
(BxM)O(((1tp4),M)p" '),4 RATHER THAN BO' ',4 BXDENTS LINES BY <N> SPACES 
RATHER THAN 1 SPACE. THIS WILL FURTHER EMPHASIZE THE EXDENTED LINES, 
WHICH SOME PEOPLE FEEL IS A CLEARER AND NORE USEFUL DISPLAY FOR THE 
PROGRAMMER AND READER. i 


BIAMPLES: 


seeee USING DISPLAYFUNCTION1 ON A SAMPLE FUNCTION 
4 DISPLAYFUNCTION1 OCR ‘F2' 
Ys F2-X¥;01032343V34R3TS 
[1] ABXAMPLE FOR DISPLAYFUNCTION AND SORTLOCAL 
[2] a.k EXAMPLE 
(3) i+, 
C4] +(0eX)/END 
(5] I+x4X 
(6] END: 
(7] O+'END OF FUNCTION' 
v 


eeeee CONTRAST WITH USING DISPLAYFUNCTION 
DISPLAYFUNCTION (CR 'F2' 
V F2 X;O0103Z23A3V54R5TS 
(1] aBXAMPLE FOR DISPLAYFUNCTION AND SORTLOCAL 
(2] a.K EXAMPLE 


(3) x+,7 

(4) +(0ex)/END 
(5) xerx#rx 

(6] BND: 


(7] O+'8ND OF FUNCTION 
v 
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Y«FIXUPARRAY DATA 
RETURN CHARACTER AT ErE FROM ARRAY <DATA> 


<FIXUPARRAY> IS USEFUL WHEN FORMATTING ARRAYS FOR PRESENTATION, FOR 
INSTANCE, WHEN INCORPORATING TEXT INTO DOCUMENTS. THE FUNCTION PREPARES 
A SIMPLE MATRIX CHARACTER REPRESENTATION OF THE ARGUMENT <DATA>, WHICH 
CAN BE A NUMERIC OR CHARACTER ARRAY OF ANY RAWK. 


ARGUMENTS: 


<DATA> NUMERIC OR CHARACTER ARRAY (ANY RANK) 


<¥> CHARACTER MATRIX 
A CHARACTER REPRESENTATION OF <DATA>. THE REPRESENTATION OF A 
MULTI-DIMENSIOWAL ARRAY (GREATER THAN RANK 2) HAS ONLY ONE BLANK ROW 
BETWEEN EACH PLANE. 

BXAMPLES: 


O+M+FIXUPARRAY 2 
ow 


O+M+FIXUPARRAY 2 2p.4 


or 
_=N 


eM 


O+N+FIXUPARRAY 2 2 2 2p'ABCD' 


pM 
11 2 
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ReJC X 
JUSTIFY CENTRE. CENTRE ALL ROWS OF LEFT-JUSTIFIED CHARACTER ARRAY <X> 


<I> CHARACTER ARRAY (ANY RANK) 
THE ARRAY MUST BE LEFT-JUSTIFIED IF THE RESULT IS TO BE PROPERLY CENTRED. 


RESULT: 


<R> CHARACTER ARRAY 
THE RESULT IS 4 CENTRED VERSION OF <X> ALONG THE LAST COORDINATE. IN 
PARTICULAR, ROWS OF <R> ARE CENTRED WITH BLANKS ON THE RIGAT AND LEFT. 


BXAMPLES: 


weeee CENTRE IN THE MIDDLE OF A PAGE 78 CHARACTERS WIDE 
JC 78+'APPLE JACK' 
APPLE JACK 


PAGE 6-38 JL 


RedL X 


<I> CHARACTER ARRAY (ANY RANK) 


<R> CHARACTER ARRAY 


FORMATTING 


THE RESULT IS A LEFT-JUSTIFIED VERSION OF <X> ALONG THE LAST COORDINATE. 
IN PARTICULAR, ROWS OF <R> ARE LEFT-JUSTIFIED WITH BLANKS OW THE RIGAT. 


BXAMPLES: 
O+a+'/* aBox ' APPLE/ BETTY/ 
APPLE 
BETTY 
CaT 
aL A 
APPLE 
BETTY 
cat 
w-L° JOuM: 


Joan 


cat’ 
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ReJR X 
JUSTIFY RIGHT. JUSTIFY CHARACTER ARRAY <I> 


ARGUMENTS: 


<X> CHARACTER ARRAY (ANY RANK) 


<R> CHARACTER ARRAY . 
THE RESULT IS 4 RIGHT-JUSTIFIED VERSION OF <X> ALONG THE LAST COORDINATE. 
IN PARTICULAR, ROWS OF <R> ARE RIGHT-JUSTIFIED WITH BLANKS ON THE LEFT. 


BETTY /. CAT’ 


BETTY 


RA 
APPLE 
BETTY 
cat 


JR ‘ABC . 
4BCc 
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Y+PW MATACROSS M 
DISPLAYS MATRIX <M> WITH MULTIPLE COLUMNS ACROSS A PAGE OF WIDTH <PW> 


INTRODUCTION: 


THIS FUNCTION FORMATS A MATRIX <M> SO THAT THE ROWS OF <M> ARE DISPLAYED 
IN FIBLDS ACROSS THE PAGE: 


M(i3] M23] MC33] 

M(X3] M(x41;] 9 M(X+23] 

MCY3] M(Y¥+1;] 9 M(¥+23] 
ARGUNENTS: 


<MN> MATRIX 


<PW> NUMERIC SCALAR 
WIDTH OF THE PAGE IN CHARACTERS. EMPTY <PW> DEFAULTS TO OPW. 


RESULT: 

<Y> CHARACTER MATRIX 
THE REFORMATTED VERSION OF <M> ACROSS 4 PAGE OF WIDTH PW. 
C1tpY) s Pw 


M+'/* ABOX 'APPLE/BETTY/CAT/DOG/EGG/FARM/GOAT/HEN/IWK/JACK/IN THE/BOX' 
oM+N,(C11M 

24 6 
O+¥+78 MATACROSS M 


APPLE BETTY CAT DOG BGG FARN GOAT &HEN INK JACK IW THE 
Box APPLE BETTY CAT DOG EGG FARM GOAT JEN INK JACK 
IN THE BOX 

eV 
3°77 


FORMATTING MATDOWN PAGE 6-41 
Y+A MATDOWN M 
FORMATS MATRIX <M> IN COLUMNS DOWN A PAGE ACCORDING TO <A> 


<MATDOWN> IS A COMPANION FUNCTION TO <MATACROSS>. IT FORMATS MATRIX <M> 
SO THAT THE ROWS OF <M> ARE DISPLAYED IN FIELDS DOWN THE PAGE: 


M(13] MCX;] M(¥3] 
M23] M(X+1;])  MCY+1;] 
M33] M(X+23;] M[Y+23] 


THE FUNCTION COMPUTES THE MAXIMUM NUMBER OF COLUMNS THAT CAN FIT ACROSS 
THE PAGE AND THEN LAYS OUT THE ITEMS IN THAT MANY COLUMNS. THIS IS A 
USEFUL GENERAL ARRANGEMENT, BUT IS RATHER TRICKY TO COMPUTE. 


ARGUMENTS: 


<M> ‘MATRIX 


<A> 2-BLEMENT NUMERIC VECTOR 
AC1) = WIDTH OF PAGE (:0PW) 
A(2] = SPACES BETWEEN COLUMNS (:1) 


RESULT: 


<¥> CHARACTER MATRIX 
THE REFORMATTED VERSION OF <M>. THE WIDTH OF THE PAGE IS TAKEN TO BE (PW. 


SOURCE: 


ADAPTED FROM THE I.P. SHARP NEWSLETTER 


BXAMPLES: 
M+'/* ABOX ‘APPLE/BETTY/CAT/DOG/EGG/FARM/GOAT/HEN/IWK/JACK/IN THE/BOX' 
pM+M,[1]M 

24 6 
50 4 MATDOWN M 

APPLE FARM IN THE DOG INK 

BETTY GOAT Box BGG JACK 

CAT HEN APPLE FARM IN THE 

DOG ' INK BETTY GOAT Box 


BGG JACK CAT HEN 


PAGE 6-42 REFORMAT FORMATTING 
Y+A REFORMAT M 
REFORMAT <M> TO A[1] COLUMNS WIDE AND A(2] PRECEEDING BLANK COLUMNS 


PARAGRAPH WITH A MAXIMUM LINE LENGTH. REDUNDANT SPACES ARE REMOVED. 
SENTENCES END WITH A DOUBLE SPACE. (THIS PARAGRAPH IS 4 GOOD EXAMPLE.) 
THE LINES MAY BE OPTIONALLY PRECEEDED BY BLANKS. THIS PROVIDES THE 
FACILITY FOR ‘INDENTING’ THE TEXT. 


ARGUMENTS: 


<A> | 2-ELEMENT NUMERIC VECTOR 
AC1] WIDTH OF THE RESULT MATRIX 
AC2] NUMBER OF BLANKS TO PRECEED EACH LINE (:0) 
AC1J>4(2] 


<M> CHARACTER ARRAY 
TEXT TO BE REFORMATTED. A PERIOD OR QUESTION MARK FOLLOWED BY AT LEAST 
ONE SPACE DETERMINES THE END OF A SENTENCE. 


RESULT: 

<I> CHARACTER MATRIX 
THIS IS THE REFORMATTED TEXT WITH DIMENSIONS <N,A(1]>. WN IS THE NUMBER OF 
ROWS REQUIRED FOR THE TEXT. THE FIRST <A(2]> COLUMNS ARE BLANK. 


A MATRIX IS RAVELLED WITH ONE BLANK APPENDED TO BACH ROW. SINCE REDUNDANT 
BLANKS ARE LATER REMOVED, THIS ENSURES THAT WORDS ENDING ON ONE LINE DO 
NOT ‘RUN TOGETHER' WITH WORDS BEGINNING ON SUBSEQUENT LINES. 


THE LINE-BREAKING ALGORITHM IS THE <SPLIT> FUNCTION. THIS ENSURES THAT 
WORDS ARE NOT SPLIT IN THE MIDDLE. NO OTHER PROPERTY OF THE RESULT IS 
UTILIZED, AND ANOTHER LINE-BREAKING ALGORITHM COULD BE USED. WO SPECIAL 
TEST IS MADE FOR TEXT WITHIN QUOTES. 


FOUR TOOLKIT FUNCTIONS WORK TOGETHER IN ONE LINE OF <REFORMAT> TO DO MOST 
OF THE WORK, AS FOLLOWS ...~ 


YegL (A(1]-AL2]) SPLIT (BXPANDAF (ipV)e(¥ SS *. '),V SS "2 "OW 


<SS> FIND OCCURENCES OF PERIOD OR '?' FOLLOWED BY BLANK 

<EXPANDAF> PUT AN EXTRA BLANK INTO <V> AFTER THESE OCCURENCES 

<SPLIT> ‘SPLIT’ TEXT INTO SEVERAL LINES WITHIN GIVEN WIDTH 

<JL> JUSTIFY LEFT --- MOVE LEADING BLANKS TO END OF EACH LINE 
EXAMPLES: 


V+'THE QUICK BROWN FOX JUMPED OVER THE LAZY RED HEN. ' 
V+V,'THE DOG DUG AN EGG FROM A FIELD ON THE FARM. ' 
V+V,'THEN THE GOAT ATE THE HAT.' 
O+M+60 3 REFORMAT V 
THE QUICK BROWN FOX JUMPED OVER THE LAZY RED HEN. THE 
DOG DUG AN EGG FROM A FIELD ON THE FARM. THEN THE GOAT 
ATE THE HAT. 


weeee REFORMAT MATRIX TO 50 COLUMNS, NO INDENT 
50 REFORMAT M 

THE QUICK BROWN FOX JUMPED OVER THE LAZY RED HEN. 

THE DOG DUG AN EGG FROM A FIELD ON THE FARM. 

THEN THE GOAT ATE THE HAT. 


FORMATTING SORTLOCAL PAGE 6-43 
Y+SORTLOCAL X 
SORT LOCAL VARIABLES IN FIRST LINE OF <X> = CANONICAL MATRIX 


INTRODUCTION: 
THIS FUNCTION IS PUTS THE LOCAL VARIABLES IN THE HEADER LINE INTO SORTED 
ORDER. THE FUNCTION IS PRESENTED STRICTLY AS A TEXT FORMATTING FUNCTION. 
HOWEVER, IT IS USED IN THE PROGRAM DEVELOPMENT PROCESS WITH A ‘DRIVER' 
FUNCTION SUCH AS <SORTL>. 


ARGUMENTS: 

<I> CHARACTER MATRIX 
THE CANONICAL REPRESENTATION OF A FUNCTION. (ACTUALLY THE FUNCTION WILL 
WORK FOR ANY TEXT MATRIX, BUT THE FUNCTION ONLY CHANGES THE FIRST LINE IF 
SEMICOLONS ARE PRESENT.) 


RESULT: 

<Y> CHARACTER MATRIX 
<Y¥> IS SIMILAR TO <X> EXCEPT THAT THE LOCAL NAMES IN THE FIRST ROW OF <Y¥> 
ARE SORTED. IF <X> IS 4 VALID CANONICAL MATRIX, <Y> WILL ALSO BE VALID. 


EXAMPLES: 


. SUPPOSE <F2> HAS THE FOLLOWING HEADER LINE ... 
(QOcer 'F2*)(13) 
F2 X;01032343V34R3TS 


seeee <SORTLOCAL> SORTS THE HEADER LINE 
(sorTLocaL OcR ‘'F2')(13) 


F2 X3;434R;7S3V32;010 


PAGE 6-44 SPLIT FORMATTING 


Y«W SPLIT LINE 
SPLIT TEXT VECTOR <LINE> INTO <W>-SIZE PIECES 


THIS FUNCTION ‘SPLITS' OR REFORMATS A CHARACTER VECTOR INTO A MATRIX, 
PAYING ATTENTION TO SEQUENCES OF NON-BLANK CHARACTERS. UNLESS ABSOLUTELY 
NECESSARY, 'WORDS' (I.E. SEQUENCES OF NON-BLANK CHARACTERS) ARE NOT 
SPLIT. THIS FUNCTION CAN BE USED FOR ARBITRARY TEXT, AND IT IS 
PARTICULARLY SUITABLE FOR SPLITTING FUNCTION LINES. 


THE ONLY CHARACTERS IN THE MATRIX NOT IN THE ORIGINAL VECTOR ARE BLANKS TO 
PAD THE ENDS OF THE ROWS. THE TEXT IS ALWAYS SPLIT AT THE LAST POSSIBLE 
NON-BLANK CHARACTER, AND THE ROW IS PADDED WITH BLANKS TO <W> CHARACTERS. 
THE BLANK CHARACTERS BETWEEN THE LAST NON-BLANK CHARACTER AND THE 
BEGINNING OF THE NEXT NON-BLANK SEQUENCE ARE PREFACED TO THE SUCCEEDING 
ROW. THEREFORE, THE SECOND AND SUCCEEDING ROWS OF A SPLIT LINE ARE 
USUALLY INDENTED BY ONE OR MORE BLANKS, DEPENDING ON THE NUMBER OF BLANKS 
BETWEEN NON-BLANK SEQUENCES. IF THERE IS A NON-BLANK SEQUENCE MORE THAN 
<W> CHARACTERS LONG, THE SEQUENCE IS SPLIT AT THE LAST POSSIBLE NON-BLANK 
CHARACTER. 


ARGUMENTS: 
<W> INTEGER SCALAR (OR 1-ELENENT VECTOR) 
W>0 


<LINE> CHARACTER VECTOR 
A SCALAR IS TREATED AS A 1-BLEMENT VECTOR. 


RESULT: 


<¥> CHARACTER MATRIX 
<Y> WILL HAVE SHAPE (N,W) WHERE NW IS THE NUMBER OF ROWS REQUIRED TO 
CONTAIN <LINE>. IF <LINE> IS EMPTY, N=0. 


EXAMPLES: 

30 SPLIT 40p'Xx' 
XAXIXIAXIAIAXAXIIIIIAIIIIIIIIT 
XXXIXAIXIIY 


V+120p'APPLE ANNIE BETTY CAT DOG DIG BGG FARM GOAT #AT' 
O+M+40 SPLIT V 

APPLE ANNIE BETTY CAT DOG DIG EGG 

FARM GOAT HATAPPLE ANNIE BETTY CAT 

DOG DIG EGG FARM GOAT HATAPPLE 

ANNIE BETTY CA 
pM 

4 40 


50 SPLIT V 
APPLE ANNIE BETTY CAT DOG DIG EGG FARM GOAT 
HATAPPLE ANNIE BETTY CAT DOG DIG EGG FARM 
GOAT HATAPPLE ANNIE BETTY CA 


eeeee FOR A LEFT-JUSTIFIED RESULT USE THE <JL> FUNCTION ... 
JL 40 SPLIT V 2 

APPLE ANNIE BETTY CAT DOG DIG BGG 

FARM GOAT HATAPPLE ANNIE BETTY CAT 

DOG DIG BGG FARM GOAT HATAPPLE 

ANNIE BETTY CA 


FORMATTING ACENTE PAGE 6-45 
Y+FLD ACENTH LABEL 
CENTRE COLUMN HEADINGS <LABEL> WITHIN FIELD WIDTHS SPECIFIED BY <FLD> 


WHEN DOING REPORTS, GETTING THE COLUMN HEADINGS TO ALIGN PROPERLY CAN BE A 
TEDIOUS UNDERTAKING. THE NOVICE MAY TRY A LOT OF CAREFUL COUNTING OR 

TRIAL AND ERROR. IN CONTRAST, ACENTH PROVIDES A SYSTEMATIC TECHNIQUE FOR 
CENTERING OR ALIGNING COLUMN HEADINGS WITHIN SPECIFIED FIELDS OF A REPORT. 


ARGUMENTS: 

<FLD> NUMERIC VECTOR é 
THIS ARGUMENT CONTROLS THE SPACING OF EACH COLUMN HEADER. IN GENERAL, A 
TRIPLET OF NUMBERS IS USED TO CONTROL EACH COLUMN HEADING. THE FIRST 
DETERMINES TOTAL WIDTH OF A COLUMN FIELD. THE SECOND CONTROLS THE 
POSITION OF THE TEXT WITHIN THE FIELD: 
1=LEFT-JUSTIFY, O=CENTRED, —1=RIGHT-JUSTIFY. 
THE THIRD CONTROLS THE INTER-COLUMN SPACING. 


EXAMPLE: 10011510 
CENTRE IN 10 SPACES, LEFT JUSTIFY IN 15, 1 SPACE BETWEEN COLUMNS 
THE LAST INTERCOLUMN (IC) SPACE SPECIFICATION IS ALWAYS IGNORED. 


IT IS NOT NECESSARY TO SPECIFY 3 NUMBERS FOR BACH COLUMN FIELD. 
LET N = THE NUMBER OF COLUMN FIELDS 
1 NUMBER: WIDTH. EXTENDS TO WN WIDTHS, BACH CENTRED(O), 

AND 1 INTERCOLUMN SPACE. 
3 NUMBERS: (WIDTH,POSITION,IC SPACE). BXTENDS TO WN TRIPLETS 
3xN NUMBERS: WN TRIPLETS OF (WIDTH,POSITION,IC SPACE) 

CONTROLS EACH COLUNN FIELD. 


<LABEL> TEXT VECTOR 
TEXT VECTOR OF COLUMN HEADINGS; FIRST CHARACTER IS DELIMITER. 
EXAMPLE: '/NAME/SALES/TOTAL/PERCENT' 


RESULT: 


<Y> TEXT VECTOR 
VECTOR WITH COLUMN HEADINGS SPACED AS SPECIFIED. 


EXAMPLES: 


+ PUT EACH HEADER IN A FIBLD OF 10 SPACES. (ALL CENTRED) 
10 ACENTH '/NAME/SALES/TOTAL/PERCENT' 
NAME SALES TOTAL PERCENT 


eeeee SPECIFY FIELD FOR EACH HEADER (20 SPACES, 10 SPACES, ETC.) 
20 0 11001 100 1 15 0 1 ACENTH '/NAME/SALES/TOTAL/PERCENT' 
NAME SALES TOTAL PERCENT 


seeee L=LEFT-JUSTIFY; “1=RIGAT-JUSTIFY; ALLOW 2 INTER-COLUMN SPACES 
20 12 10 “1 2 10 “1 2 15 “1 2 ACENTH '/NAME/SALES/TOTAL/PERCENT' 
NAME SALES TOTAL PERCENT 


PAGE 6-46 ACENTT FORMATTING 
Y«W ACENTT TEXT 
CENTRE TITLE <TEXT> WITH LEFT, MIDDLE, AND RIGHT PHRASES IN <W> SPACES 


WHEN DOING REPORTS, THIS FUNCTION PROVIDES A CONVENIENT WAY OF FORMATTING 
NEAT REPORT TITLES. 


UP TO THREE TEXT FIELDS CAN BE SPECIFIED. THE FIRST FIELD IS 
LEFT-JUSTIFIED, THE SECOND IS CENTRED, AND THE THIRD IS RIGHT-JUSTIFIED. 
IF A FIELD IS NOT REQUIRED, IT CAN BE LEFT OUT. THE PROGRAMMER HAS 
COMPLETE FLEXIBILITY TO MAKE THE PHRASES WHATEVER IS REQUIRED, FOR 
EXAMPLE, THE CENTRED PHRASE CAN BE THE TITLE OF THE REPORT, THE LEFT AND 
RIGHT FIELDS (PHRASES) CAN ONE OF THE PAGE, DATE, TIME, ETC. 


ARGUMENTS: 


<W> ONE-ELBMENT NUMERIC VECTOR 
WIDTH OF PAGE IN CHARACTERS 


<TEXT> TEXT VECTOR 
THIS VECTOR CONTAINS THE LEFT, MIDDLE, AND RIGHT FIELDS, WHERE THE 
FIRST CHARACTER IS THE DELIMITER. 
EXAMPLE: '/PAGE 1/XEROX SALES REPORT/DATE' 
A FIELD CAN BE EMPTY OR BLANK IF IT IS NOT REQUIRED. 


RESULT: 


<Y> TEXT VECTOR 
THE RESULT CONTAINS THE FIELDS WITHIN A VECTOR OF LENGTH <W>. THE FIRST 
FIELD IS LEFT-JUSTIFIED, THE SECOND FIELD IS CENTRED, AWD THE THIRD FIELD 


IS RIGAT-JUSTIFIED. 
(pTEXT)=¥ 


EXAMPLES: 


71 ACENTT '/PAGE 3/XBROX SALES REPORT/DATE' 
PAGE 3 XEROX SALES REPORT DATE 


71 ACENTT '/DATE/XEROX SALES REPORT/PAGE 1° 
DATE XEROX SALES REPORT PAGE 1 


eeeeeDTF A FIELD IS NOT USED, USE AN EMPTY FIELD 


65 ACENTT '//SBARCHING/PAGE 4-14" 
SEARCHING PAGE 4-14 


«eeeeTO CENTRE ONE FIELD ONLY, SPECIFY ONLY THE SECOND FIELD 


71 ACENTT '//XEROX SALES REPORT’ 
XEROX SALBS REPORT 


eeeeeTO INSERT THE ACTUAL DATE, USE THE <DATE> FUNCTION 


71 ACENTT ‘/PAGE 1/XEROX SALES REPORT/',DATE 
PAGE 1 XEROX SALES REPORT MAY 13, 1988 


GRAPHICS FIBSPIRAL PAGE 6-47 


M+A FIBSPIRAL B 
FIBONACCI SPIRAL. CHOOSE <A> AND <B> FROM FIBONACCI SERIES 


THIS INTERESTING RECURSIVE FUNCTION COMPUTES A GRAPHIC IN THE SHAPE OF A 
SPIRAL USING ‘NEIGHBOURS’ IN THE FIBONACCI SERIES. THIS SERIES IS AWN 
INFINITE SERIES BEGINNING 1 1 2 3 5 8 13 21 34 55 89 144 ... 


ARGUMENTS: 


<A> SCALAR NUMBER 
A MEMBER OF THE FIBONACCI SEQUENCE 


<B> SCALAR NUMBER 
THE NUMBER FOLLOWING <A> IN THE FIBONACCI SERIES 


RESULT: 


<N> CHARACTER MATRIX 
THE MATRIX WHEN PRINTED IS A SPIRAL AND THE LENGTHS OF THE ARMS ARE BASED 


ON THE FIBONACCI SEQUENCE. (pM) = (4,B) 


BXANPLES: 


PAGE 6-48 PATTERNG GRAPHICS 


Z+M PATTERNG C 
RANDOM REARRANGEMENT OF TEXT <C> BASED ON <M> 


THIS FUNCTION REARRANGES RANDOMLY THE TEXT <C> BASED ON THE NUMERIC 
‘CONTROL’ VECTOR <M>. THE ALGORITHM MAY BE DETERMINED BY READING THE 
FUNCTION. A PATTERN PRODUCED BY THIS INTERESTING FUNCTION APPEARED ON 
THE COVER OF OF THE APL\360 USER'S MANUAL (AUGUST 1968). THE PATTERN WAS 
PRODUCED BY 13 13 3 5 PATTERNG * APL\360 ' 


ARGUMENTS: 


<M> 4-ELEMENT NUMERIC VECTOR 
THIS ARGUMENT AFFECTS THE PARTICULAR REARRANGEMENT OF THE TEXT <C> 


<C> CHARACTER VECTOR 
TEXT TO BE REARRANGED 


RESULT: 


<Z> CHARACTER MATRIX 
THE SHAPE OF THE RESULT IS (2+M)x(2+M). THE RESULT IS THE PATTERN 


PRODUCED BY THE FUNCTION. 


SOURCE: 


THIS FUNCTION WAS SUGGESTED BY AN ALGORITHM DUE TO ROGER FREY (IBM 
RESEARCH AND YALE UNIVERSITY). 


EXAMPLES: 
2 3 2 3 PATTERNG ' SUN * MOON ' 
wee 000 
eee 000 
000 =yuu 
000 =—nuu 


3 5 3 10 PATTERNG ‘APPLE \ BETTY’ 
BEEBEEEEEELLLLLLLLLLYYYYYYYYYYYYYYYYYYYYPPPPPPPPPP 
BEEREREREELLLLLLLLLLYYYYYYYYYYYYYYYYYYYYPPPPPPPPPP 
BEEEEEEREELLLLLLLLLLYYYYYYYYYYYYYYYYYYYYPPPPPPPPPP 

TITTTTTTTTEEREREREBELLLLLLLLLLTIITIITTITITTT 
TTTTTTTTITTEREEREEEEELLLLLLLLLLTITTTITITITTT 
TTITTTTTTTTERREEREEEBLLLLLLLLLLITITIITITTITT 
BBBBBBBBBB\\\\\\\\\\LLLLLLLLLLBBBBBBBBBBPPPPPPPPPP 
BBBBBBBBBB\\\\\\\\\\LLLLLLLLLLBBBBBBBBBBPPPPPPPPPP 
BBBBBBBBBB\\\\\\\\\\LLLLLLLLLLBBBBBBBBBBPPPPPPPPPP 


GRAPHICS TRIANGLE 


Y«+TRIANGLE WN 
PRINT A PRETTY TRIANGLE USING #\ WHERE <N> IS A POWER OF 2 


THIS LITTLE FUNCTION PRINTS A PRETTY TRIANGLE BASED ON THE CHARACTERISTICS 
OF REPEATING THE APPLICATION OF #\ TO A BOOLEAN VECTOR. 


ARGUMENTS: 

<N> NUMERIC SCALAR 
THE BEST RESULTS ARE OBTAINED WHEN <N> IS A POWER OF 2, E.G. 4, 8, 16, 
32, ETC. IF N IS NOT A POWER OF 2, THE TRIANGLE IS NOT PRETTY! 


RESULT: 

<Y> CHARACTER MATRIX 
THE MATRIX WHEN PRINTED DISPLAYS AS A PATTERN OF TRIANGLES OF GRADUALLY 
INCREASING SIZE. 


SOURCE: 


WORKING MEMORANDUM NO. 106, BD. ROBERT SMITH, STSC, 1975 
EXAMPLES: 


TRIANGLE 16 
RRRRARARERRERERE 
eee eee 
ke kk Re ott 


* * * * 
week eek 
ae a 
ae ae 

* * 
ReeRRERE 
geet 

ae ke 

* * 

aeee 

ae 


M+TRIANGLE 8 

(M,N) ,[1]0M, OM 
RERRRRRRAARAAAER 
seek RRR 


ak kk ek ke 
* * * * 
aaee aeee 
ae ae 
ae ae 
* * 
* * 
ae ae 
a zt 
aeee eeee 
* * * ® 
te okt ak kt 


geek eR REE 
RRRRRRRRERRERERE 


PAGE 6-50 XFADE GRAPHICS 
ReS XFADE C 
TRANSFORM TEXT IN <C>-USING A *FADING* ALGORITHM CONTROLLED BY <S> 


<XFADE> TRANSFORMS THE LETTERS IN ONE TEXT INTO THE LETTERS OF A SECOND 
TEXT. THE ALGORITHM 'FADES' THE TEXT, IN THE SENSE THAT THE LETTERS OF 
THE FIRST TEXT GRADUALLY DISAPPEAR (OR ‘FADE AWAY'), TO BE REPLACED 
GRADUALLY BY THE LETTERS OF THE SECOND TEXT. 


ARGUMENTS: 
<C> CHARACTER VECTOR 
THE SYNTAX IS /FIRST TEXT/SECOND TEXT 
C{1] IS CONSIDERED THE DELIMITER CHARACTER. 


<S> _ 2-ELEMENT NUMERIC VECTOR 
S(1] NUMBER OF ROWS IN RESULT 
S(2] NUMBER OF COLUMNS IN RESULT 


RESULT: 

<R> CHARACTER MATRIX 
THE RESULT WHEN DISPLAYED SHOWS THE ‘FIRST TEXT' GRADUALLY FADING INTO THE 
"SECOND TEXT' FROM THE FIRST ROW TO THE LAST ROW. THE GREATER THE VALUE 
OF S{1], THAT IS, THE MORE ROWS, THE MORE GRADUALLY THE FADING OCCURS. 


SOURCE: 


PHIL LAST (DAVID SAUNDER'S COMPETITION, UK APLUG NEWSLETTER, JUNE 1982) 


EXAMPLES: 

7 40 XFADE '/WELCOME TO THIS MEETING OF /THE CIPS APL SIG ' 
WELCOME TO THIS MEETING OF BELCOME TO TH 
WELC ME T Ss EBTIGOFW OB 0 
BL ME TA THIS EEN OF c 8g 0 
WH ME TOT EE EL oc 
T CO PS LitsmT ‘I PS 
TEE CIES AP G TH CIP A SG Ec 
THE CIPS APL SIG THE CIPS APL SIG THE CI 


5 70 XFADE '/SON /MOON ' 


SON SON SON SON SON SON SON SON SON SON SON SON SON SON O SON O 
ON ON ON SO S MW SO SW SNS SO OM 0 OW ON so 
M SO ON WN 00 MONN O N 0 o.U0°0 s N 
MOO MOON NOONNMOON OON M MO NM ON o oO MO SO 


MOON MOON MOONNMOON MOON MOON MOON MOON MOON MOON MOO OON MOO MOO 
15 70 XFADE '/SON /MOON ' 

SON SON SON SON SON SON SON SON SON SON SON SON SON SON SON SON SON SO 

S NS N SON SON SON SON SOO SON SON SON SON SON SON SON SO O ON SO 

SO SON SN ON © SON SON ON SO SON S NW SON SON SON SO SO SON O 

SON SOO SN NSWNSW SONS SO ON ON SON 0 OF ONSN OO O 


SON S oO O S KN SN SON ON ONSM WS S s 
SN SON O SO sO SO S OWN OW oO ON SO- O NSM 
SON MNONNS MONSO N SN NS SOWNNS NO N 
0 oon N N ONOSN N NS SON SN a N 
SOO ON MS MSW ONM uO MO M 0 NO 
NNO NM NOS  ONNMSO oO MO MO MOO Ss 
s MOON M N O M NW NWMOO ON MOON O ON M MNO 


NM ON MO MOON M ON MO MO N OO MONN MOON O N MOON MON 00 
MOON MOON MOON MOO MO N MOON MO N MOO MOO M MOON O N MOON MOO 
MOON MOON OON MOON MOON MOON MOON MOON MOON MO MOO WM ON MOON MOONO 
MOON MOON MOON MOON MOON MOON MOON M ON MOON MOON MOON MOON MOON MOON 


LIBRARY-UTILITY CATOFFUN PAGE 6-51 


I+CATOFFUN X 
RETURN CATEGORIES REPRESENTED BY FUNCTIONS < 


REFER TO THE DOCUMENT ON <FUNSINCAT> 


PAGE 6-52 CONTENTS LIBRARY-UTILITY 


I+CONTENTS NAMES 
RETURN NEATLY FORMATTED REPORT OF FUNCTIONS <NAMES> BY CATEGORY 


INTRODUCTION: 
WHEN DEVELOPING AND MAINTAINING A WORKSPACE, IT IS CRITICAL TO HAVE AN 
UP-TO-DATE SORTED LIST OF THE FUNCTIONS. <CONTENTS> PROVIDES THIS 
FACILITY. IT CAN BE USED FOR FUNCTIONS IN ANY WORKSPACE. IF THERE IS NO 
CATEGORY INFORMATION, (1.8. NO 'K* TAG LINE), ALL FUNCTIONS ARE PLACED 
IN THE ‘NULL' (OR 'BLANK') CATEGORY. 


A SLIGHTLY MODIFIED VERSION OF THIS FUNCTION WAS USED TO CREATE THE 
INDEX OF FUNCTIONS BY CATEGORY IN THE TOOLKIT MANUAL. 


ARGUMENTS: 


<NAMES> CHARACTER VECTOR OR MATRIX 
NAMELIST OF FUNCTIONS 


RESULT: 


<Y> CHARACTER MATRIX 
THIS MATRIX REPRESENTS THE REPORT. 


EXAMPLES: 


X+CONTENTS ‘BOXF JR ARRAY NOFUNC DFH' 
«sees DISPLAY FIRST 78 COLUMNS OF THE REPORT 


x(3178] 
NOFUNC . 

FORMATTING 

x JR ReJR X. JUSTIFY RIGHT. JUSTIFY CHARACTER ARRAY <X> 
RESHAPE 

* ARRAY R+DEL ARRAY STR. GENERAL VECTOR RESHAPE. RESHAPE VECTOR <STR> U 

* BOXF Y+W BOXF V. BOX FIELDS. <Y({I;]> IS A FIELD OF VECTOR <V¥> SPECIF 
TRANSLATION 


* DFA Y+DFH X. RETURN DECIMAL VALUES OF HEX NUMBERS <X> 


LIBRARY-UTILITY EXAMPLE PAGE 6-53 


THE FUNCTIONS IN THE TOOLKIT WORKSPACE OFTEN CONTAIN AN BXAMPLE CODED AS A 
COMMENT IN THE FUNCTION. THE EXAMPLE IS IDENTIFIED BY '.E' AT THE 
BEGINNING OF THE COMMENT. THIS COMMENT LINE IS CALLED THE ‘E' TAG LINE. 
THE EXAMPLE CAN BE STUDIED IN THE FUNCTION TEXT, AND IT CAN BE QUICKLY 
DISPLAYED AND EXECUTED IN THE WORKSPACE USING <EXAMPLE>. 


ARGUMENTS: 
<N> CHARACTER VECTOR 
THE NAME OF THE FUNCTION 


RESULT: 


THE TERMINAL. 
EXAMPLES: 


BXAMPLE ‘ABOX' 
(3 Sp'APPLEBETTYCAT ') = ‘*/' ABOX ‘APPLE/BETTY/CAT' 
p Ue tes ia Sie | ? 
tiiaii 
y Us Ba OO Ve 
seoee THIS IS THE BXYAMPLE LINE AS IT APPEARS IN THE FUNCTION 
((DCR *aBox'){313]4.='n.B')#0CR 'ABOr* 
a.E (3 Sp'APPLEBETTYCAT ') = '/' ABOX ‘APPLE/BETTY/CAT‘ 


PAGE 6-54 FUNSINCAT LIBRARY-OTILITY 


I+N FUNSINCAT X 
‘SORTED LIST OF ALL FUNCTIONS IN <N> BELONGING TO CATEGORYS <X> 


INTRODUCTION: 


CAN MAKE GOOD USE OF THEM TO SELECT FUNCTIONS. USING THE CATEGORY 
TAG-LINE IS ALMOST LIKE GROUPING FUNCTIONS. <FUNSINCAT> WORKS WELL WITH 
<CATOFFUN> WHICH RETURNS THE CATEGORY OF A GIVEN FUNCTION. 


ARGUMENTS: 


<N> CHARACTER VECTOR OR MATRIX 
NAMELIST OF FUNCTIONS. 
IF <N> IS EMPTY IT DEFAULTS TO OWL 3. 


<X> CHARACTER VECTOR OR MATRIX 
NAMELIST OF FUNCTION CATEGORIES 


RESULT: 


<Y> CHARACTER MATRIX 
A SORTED LIST OF FUNCTIONS IN <N> THAT BELONG TO THE CATEGORIES IN <X>. 


BXAMPLES: 


seees FUNCTIONS IN THE TOOLKIT BELONGING TO THE "SEARCHING' CATEGORY 
TOOLKIT FUNSINCAT ‘SEARCHING' 


BP 
FINDCOORDS 
FINDUT 
FIRST 
PICK 
PICKN 
RANGE 
SEARCH 
ss 
SSN 
WILDCARD 
AROWMEM 
seeee ALL FUNCTIONS IN THE SAME CATEG 
CATOFFUN 'ABOX' ORR Be Sener 
RESHAPE 
78 MATDOWN TOOLKIT FUNSINCAT CATOFFUN ‘ABOX' 
ARRAY Box1 DUPARRAY MATRIX REPARRAY1 ABOX 
BOXF DIMENSION DUPARRAY1 REPARRAY UNBOX 


LIBRARY-UTILITY GETTAG PAGE 6-55 


Y+X GETTAG M 
GET LINE CONTAINING TAG X (OR LINE X IF NUMERIC) FOR FUNCTIONS IN M 


INTRODU: 


THIS IS THE LIBRARY UTILITY TO GET THE SPECIFIED TAG-LINES FUNCTION IN THE 
NAMELIST <M>. IT ALSO GETS ANY LINE SPECIFIED BY NUMBER. USEFUL LINES 
INCLUDE LINE 0 (HEADER) AND LINE 1 (PURPOSE COMMENT). 


THE COMPANION FUNCTIONS ARE <PUTTAG> AND <DELTAG>. <PUTTAG> PUTS TAG 
LINES IN A SET OF FUNCTIONS, AND IS USEFUL IN QUICKLY INSERTING MANY TAG 
LINES AT ONCE. <DELTAG> DELETES TAG LINES FROM A SET OF FUNCTIONS, AND 
IS USEFUL IN QUICKLY REMOVING OBSOLETE OR ERRONEOUS TAG LINES. ALTHOUGH 
THESE THREE ‘TAG' FUNCTIONS ARE CLASSIFIED AS LIBRARY UTILITIES, THEY CAN 
BE USED FOR SETTING UP, MAINTAINING, AND USING THE "TAG-LINE' SYSTEM IN 
ANY WORKSPACE. 


ARGUMENTS: 
<I> CHARACTER OR NUMERIC SCALAR OR 1-BLEMENT VECTOR 


<M> CHARACTER VECTOR OR MATRIX 
NAMELIST OF FUNCTIONS 


RESULT: 


<¥> CHARACTER MATRIX 
A MATRIX OF TAG-LINES. THE ROWS CORRESPOND TO THE FUNCTIONS IN <M>. 


BXAMPLES: 
M+'* ABOX ADB ‘JR ARRAY NOFUNC DFE SRW* 
sececeeees FOR PURPOSE LINES (LINE 1) 
1 GETTAG M 
AJUSTIFY RIGHT. JUSTIFY CHARACTER ARRAY <X> 
AGENERAL VECTOR RESHAPE. RESHAPE VECTOR <STR> USING DELIMITERS <DEL> 


ARETURN DECIMAL VALUES OF HEX NUMBERS <X> 
AREPLACE NAME BY ‘NEW' SEQUENCE IN <TEXT>. <S>=/NAME/NEW 


seeccceees FOR CATEGORIES 
'K' GETTAG M 

FORMATTING 

RESHAPE 


TRANSLATION 
SUBSTITUTION 


seceeeeees FOR HEADERS. (LINE 0) (LOCALIZED NAMES ARE REMOVED IN THIS EXAMPLE) 
RO GETTAG M 
(pR)p(v\R="3')OC11R,0.5]" ' 

RedR X 

R+DEL ARRAY STR 


Y+DFH xX" 
L+TEXT SRN S 


wees. PUT EXAMPLES AND NAMES TOGETHER 
M,' ','E' GETTAG M 


dR % WORD' = JR '' WORD ! 
ARRAY 2.3.4 =p'/,' ARRAY 'FRED,2,XX/JOE,,222' 
NOFUNC 


DFE 10 274 = DFH 2 3p'00A112' 
SRN "A+A3xVARAtAX2* SRN */A/FACTOR' 


PAGE 6-56 SCRIPT LIBRARY-UTILIT 


I+SCRIPT TEXT 
‘RETURN DOCUMENT <Y> USING SCRIPT IN CHARACTER MATRIX <IEXT> 


INTRODUCTION: 


THIS GENERAL FUNCTION PREPARES A DOCUMENT <¥> BASED ON A ‘SCRIPT’ PROVIDED 
BY THE ARGUMENT <TEXT>. <TEXT> NOT ONLY REPRESENTS THE PLAIN TEXT OF THE 
DOCUMENT, BUT SOME ROWS OF <TEXT> BEGIN WITH CODES. THE SCRIPT FUNCTION 
INTERPRETS THE CODES AND PERFORMS ACTIONS BASED ON THE CODES. FOR 
EXAMPLE, RESULTS OF APL EXPRESSIONS CAN BE CAPTURED AND INSERTED INTO THE 
TEXT. FOR EASE OF USE, IF A LINE DOES NOT BEGIN WITH A CODE, IT IS 
CONSIDERED TO BE PLAIN TEXT AND INCLUDED WITHOUT CHANGE IN THE RESULT. 


THIS FUNCTION IS VERY USEFUL IN PREPARING DOCUMENTATION FOR APL FUNCTIONS, 
ESPECIALLY IN MERGING COMPUTER-GENERATED EXAMPLES INTO FUNCTION 
DESCRIPTIONS. ALL THE FUNCTION DOCUMENTS IN THE TOOLKIT WORKSPACE WERE 
GENERATED USING THIS FUNCTION. 


ARGUMENTS: 

<ZEIT> CHARACTER MATRIX 
THE MATRIX IS THE 'SCRIPT' CONTAINING TEXT AND CODES. 
THE FOLLOWING IS A FULL DESCRIPTION OF THE CODES, THEIR MNEMONIC 
SIGNIFICANCE, AND SOME BXAMPLES. 


T TERMINAL 

~ DISPLAY TEXT INDENTED 6 SPACES AS THOUGH ENTERED AT THE TERMINAL, 
EXECUTE TEXT, DISPLAY RESULT 

- THIS IS WILL WORK FOR ALL STATEMENTS THAT RETURN A RESULT. 

= THERE IS A SPECIAL TEST FOR ASSIGNMENT STATEMENTS SO THAT THE ‘RESULT’ 
IS NOT DISPLAYED. 

- THERE IS A SPECIAL TEST FOR STATEMENTS ENDING WITH 
{RESULT’ LOOKS LIKE If aS BXECUTED 4f TEE TERMINALS pnasadan 

- r IAL TEST FOR COMMENTS (STATEMENT 

- THIS IS THE MOST CONNONLY USED CODE. SURES TEMES HAEENO) 

T 2 2pr8 

oT A+242 

.T O+MAT+2 2916 

.T FRAME X 

<7 ACONNENT 


D DISPLAY 
- Ae Patti (*DISPLAY') TEXT AS SPECIFIED 
2 IDES IS RARELY USED. TEXT WITH WO CODE IS TREATED AS THOUGH 
IT HAD THE D CODE. HOWEVER, IT IS USEFUL WHEN DISPLAYIN 
BEGIN WITH ONE OF THE OTHER CODES. eae a tree 
oD wee. THIS IS ARBITRARY COMMENT 


D FAKE APL STATEMENT 
oD .T A*2+2 
R RESULT 


- EMBED COMPUTED RESULT IN DOCUMENT BUT DO NOT SHOW 

GENERATED THE RESULT. ENE Reker ere 
~- USEFUL FOR COMPUTER-GENERATED TEXT AND EXAMPLES 
+R DISPLAYFUNCTION OCR ‘DUP' 


S SPACE 
- INSERT ONE BLANK LINE 
JS 

Ez EXECUTE 


zs Deere Lunee Neeboe BUT DO NOT DISPLAY BXPRESSION OR RESULT 
= DD FOR ALL APL STATEMENTS RETURNING A 

ASSIGNMENT STATEMENTS. Ree here ee 
- USEFUL FOR STATEMENTS THAT ‘INVISIBLY' MANAGE AN ‘ENVIRONMENT’ FOR 


LIBRARY-UTILITY SCRIPT PAGE 6-57 


EXECUTING EXAMPLES. 
+E OPW+78 
«E M+3 Sp'x' 
-E FUNC1 
-E OFX 'v' 


X EXPUNGE 
- CONVENIENCE FEATURE TO EXPUNGE OBJECTS USED IN APL STATEMENTS WITHIN 
THE TEXT. THE FOLLOWING EXAMPLE WOULD BXPUNGE VARIABLES 'M' AND '‘V'. 

XMV 


N WILADIC EXECUTE 
- EXECUTE EXPRESSION THAT DOES NOT RETURN A RESULT, IN PARTICULAR, NILADIC 
FUNCTIONS. DO NOT DISPLAY EXPRESSION OR RESULT. 
- THIS HAS THE SAME PURPOSE AS .E, BUT AS NILADIC EXPRESSIONS REQUIRE 
SPECIAL TREATMENT, IT WAS EASIER TO SET ASIDE A SPECIAL CODE FOR THEM. 
- (RARELY REQUIRED BUT USEFUL TO HAVE) 
«NM NILADICFUN 


C COMMENT 
- COMMENT TEXT. IGNORE IN SCRIPT TEXT. 
~C ...+PREPARED MAY 1988 
~C ...sSTATEMENT COMMENTED OUT 


WARNING: DO NOT EMBED (+ WITHIN AN EXPRESSION LIKE THIS ... 
oT 242+0+2 2p.4 
THIS WILL JUST PRINT OUTPUT DIRECTLY ON THE TERMINAL AND WON'T HAVE 
ANY EFFECT ON THE CAPTURED TEXT. 


NOTE: THERE IS NO CODE TO EXECUTE A NILADIC FUNCTION AS ON A TERMINAL, 4S 
THERE WOULD BE NO USE FOR IT. THERE IS NO PROGRAMMABLE MECHANISM 
TO CAPTURE ANY TERMINAL OUTPUT ISSUED FROM WITHIN THE FUNCTION. 


RESULT: 
<I> CHARACTER MATRIX 
THE RESULT IS THE DOCUMENTATION AFTER THE CODES HAVE BEEN EXECUTED. 


SOME OF THE CODES DEPEND ON THE PRECISE DEFINITION OF 2. FOR EXAMPLE, IT 
IS ASSUMED THAT X+2'A+EXPRESSION' IS VALID, AND THAT X HAS THE VALUE OF A. 


EXAMPLES: 


THE FOLLOWING TEXT DEMONSTRATES A TYPICAL SCRIPT. IT GENERATES THE EXAMPLE 
SECTION OF THE DOCUMENTATION FOR A HYPOTHETICAL FUNCTION CALLED <F>. 


«T V+'aABBBCDDDD' 


«eee. NOTE THAT THIS RESULT CAN BE USED IN SEVERAL WAYS, B.C. 
«eeee TO COMPUTE THE NUMBER OF SEQUENCES ... 

oT +/FV 

Ss 

«eee. TO PUT A BLANK SPACE (OR LINE) BEFORE BACH SEQUENCE 
.T (EXPANDBE F V)\V 

JS 

ns M+'/* ABOX ‘APPLE/APPLE/BETTY/CAT/CAT* 

TM 

«T (EXPANDBE F M)\M 

XIMV 


our x 


SBE APPENDIX A OF THIS MANUAL FOR A COMPLETE DESCRIPTION OF ALL THE OUTPUT 
FUNCTIONS. 


PLOTTING GRAFD PAGE 6-59 


GF+CODES GRAFD X 
HISTOGRAM OF DATA <X> SPECIFIED BY <CODES> 


<GRAFD> IS AN EXAMPLE OF A MORE ELABORATELY FORMATTED HISTOGRAM. 


ARGUMENTS: 
<CODES> 2-BLEMENT NUMERIC VECTOR 
copgEs(1) NUMBER OF CELLS TO BE USED ALONG Y AXIS 


copEs(2] PERIODS PER CYCLE IW DATA 
THIS CORRESPONDS TO THE ‘TICK-MARKS' ALONG THE X-AXIS. FOR 
EXAMPLE, IF IT IS MONTHLY DATA AND THE X-AXIS SHOWS TWO 
YEARS, CODES(2]=6 WOULD SPECIFY A 'TICK-MARK' EVERY 6 MONTHS. 


RESULT: 


<GF> CHARACTER MATRIX 
THE REPRESENTATION OF THE GRAPH 


EXAMPLES: 

DATA+20 22 24% 19 15 16 1% 30 15 19 26 24 
seeee SPECIFY 16 CELLS ALONG Y-AXIS 
eeees SPECIFY 'TICK-MARKS' BEVERY 4 COLUNMS 


CODES+16 4 
CODES GRAFD DATA 

eecee ---0---0---0 eeoce 
30.00 a 30.00 
29.00 a 29.00 
28.00 ia] 28.00 
27.00 a 27.00 
26.00 O O 26.00 
25.00 O O 25.00 
24.00 O QO OO 24.00 
23.00 O O OO 23.00 
22.00 OO O OO 22.00 
21.00 OO O OO 21.00 
20.00 OOO O OO 20.00 
19.00 OOOO 0 OOO 19.00 

O OOO 18.00 
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PLI«SIXLINE V 
RETURN SIXLINE PLOT GIVEN X AND Y DATA IN <¥> Nx2 MATRIX 


THE SIX-LINE PLOT WAS DESIGNED BY ANDREWS AND TUKEY FOR FAST, CONCISE 
PLOTTING. 


THIS PLOT USES AN ARBITRARY NUMBER OF HORIZONTAL SPACES FOR THE X-AXIS 
(ABSCISSA). THE SIX PRINTED LINES FOR THE Y-AXIS (ORDINATE) REPRESENT 
Y-VALUES WHOSE INTEGER PARTS ARE +2, +1, +0, -0, -1, -2. THE FRACTIONAL 
PART OF A Y-VALUE IS REPRESENTED BY ONE OF THE DIGITS 1 TO 4, DEPENDING 
ON THE SIZE OF THE FRACTIONAL PART MEASURED IN UNITS OF .25. Y-VALUES 
BETWEEN 3 AND 4.25 (OR 3 AND 4.25) ARE PLOTTED OW THE LINE LABELLED +2 
(-2) USING THE DIGITS S TO 9. ALL OTHER NUMBERS ARE PLOTTED WITH THE 
SYMBOL 'X'. THIS RANGE IS VERY SUITABLE FOR A VARIETY OF DATA, 
ESPECIALLY IF THE DATA IS APPROPRIATELY STANDARDIZED. IT IS BSPECIALLY 
SUITABLE FOR THE ANALYSIS OF RESIDUALS. 


ARGUMENTS: 


<V> Nx2 NUMERIC MATRIX. 
vC31) X-AXYIS VALUES 
vC3;2) Y-AXIS VALUES 


RESULTS: 
<PLT> 6xN CHARACTER MATRIX. 
THIS MATRIX IS THE SIX-LINE PLOT. 


SOURCE: 
A DESIGN FOR APL SOFTWARE FOR MAN-MACHINE DIALOGUE WITH STATISTICAL 
APPLICATIONS, FRIENDLY AND LEVINE, IN PROCEEDINGS OF THE APL 75 
CONFERENCE, PISA, ITALY, 1975. ADAPTED FROM THE PAPER: TELETYPEWRITER 
PLOTS FOR DATA ANALYSIS CAN BE FAST, ANDREWS AND TUKEY, (APPLIED 
STATISTICS,1973,¥.22,192-202) 


BXAMPLES: ! 


+» BXAMPLE 1 a 
SIXLINE (111),(1.5] (.5* 5+110),0 
Lt 3 


+21 
+11 1 3 

+01 o 3 0 
-0l 3 

-1{ 301 

-2\1 


eeeeee BXAMPLE 2 
X+28 29 29 34 40 41 42 51 68 76 

seeeee LET Y BE THE_FOLLOWING RESIDUALS FROM A_REGRESSION. CURVE: 
Y+2.34 —1.87 —0.17 0.14 0.99 1.82 1.4 —2.52 4.11 ~2.32 
SIXLINE X,(1.5]Y 


+2(2 9 
+11 2 

+01 4 

-ol 1 1 

-11 4 4 


-21 3 2 
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SL*STEMLEAF Z 
STEM AND LEAF PLOT OF DATA <Z> 


A STEM AND LEAF PLOT IS A TYPE OF 'HISTOGRAM' CREATED OUT OF THE DIGITS OF 
THE DATA. IT IS USEFUL FOR ANALYZING THE SPREAD AND OUTLIERS OF A SET OF 
DATA, AS THE OUTLIERS CAN OFTEN BE READ DIRECTLY FROM THE GRAPE. 


ARGUMENTS: 


<Z> NUMERIC VECTOR 
THE DATA TO BE GRAPHED 


RESULT: 


<SL> CHARACTER MATRIX 
THE STEM AND LEAF GRAPE 


EXAMPLES: 


IT IS CLEAR FROM THE GRAPH THAT 86 IS AN ‘OUTLIER’. 
STEMLEAF —2 23 23 3%, (110), (4110), 45 86 44 
3 


2 
12344567889 
1026 

10348 

1246 

104s 


2 
1 
t) 
t') 
1 
2 
3 
5 
5 
6 
7 
8 


«eee. IN THIS SET OF OBSERVATIONS, THERE ARE FOUR 10'S, ONE 11, TWO 14'S, 
ONE 15, AND OWE 16. 

STEMLEAF 10.56 10.89 11.1 14.89 15 16.7 10.34 10.45 14.56 
11000014456 
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Z+TOWER X 
TOWER CHART (SKYSCRAPER DIAGRAM) FOR CONTINGENCY TABLE <X> 


<I> NUMERIC MATRIX 
THE ARGUMENT <X> REPRESENTS A CONTINGENCY TABLE. 


RESULT: 


<Y¥> CHARACTER MATRIX 
THE MATRIX REPRESENTS THE CHART. 


NOTES: 
AUTOMATIC SCALING TAKES PLACE AND THE RESULT IS A 3-DIMENSIONAL DIAGRAM IN 
THE FORM OF A CHARACTER MATRIX WITH (2+7R) ROWS AND (7R+17C) COLUMNS, 


WHERE R AND C ARE THE NUMBER OF ROWS AND COLUMNS IN <X>. IF OPw=132 IT 
IS TRUS POSSIBLE TO GRAPH TABLES UP TO 14x2, 11x3, 9x4, 6x5, AND 4x6. 


ALSO SEE THE ARTICLE ON CROSSTAB, PUBLISHED IN APL QUOTE QUAD 13,4, JUNE 
1983, ALGORITHM 159. 


SOURCE: 


APL QUOTE QUAD 15,13, MARCH 1985, ALGORITHM 164%. CARINA HEISELBETZ 


EXAMPLES: 


O+ri+3 3p29 16 5 26 12 20 28 30 17 


29:16 5 
26 12 20 
28 30 17 
TOWER T1 
7" 
lex} | 
lee] | 
leet | 
leet | 
cles! | —n" 
Pixel | TT+*! | 7 
_/. eek | 7 leet | / 
THIN Meet I / leet | I~" / 
tlext | feel | y |eel d leet | / 
lex] | lesl/ / lexl/ / Jeel/ / 
lex] | / Is / 
/iex} | / Ne / 
/ text | _ 7 77 7 OI 7 
ee de ee ee y |e / 
JAW Veet | Leet | deed d os / 
2lexl | desl | deel | deel | , Is / 
Jexl | Lexl/ Jee] | leel/ / Is / 
Ixx] | lex} | 71 / 
Axel | /\ex1 | /\se1 | / 
7 text | 7 Ixxl | 7 Ie! | 7 
7 \exl | / \eel | y ieel | / 
/ leet | y Ieet | y Ixet | / 
3 / leet | deel | deel d / 
, deel / leel/ / lexl/ / 
/ / i / 
/ / / / 
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N CHECKSUBROUTINE L 
CHECK WORKSPACE FOR SUBROUTINES <L> USED BY FUNCTION <N> 


INTRODUCTION: 


<CHECKSUBROUTINE> CHECKS FOR THE PRESENCE OF GIVEN FUNCTIONS IN THE 
WORKSPACE. IT IS 4 ‘CORE' FUNCTION FOR THE TOOLKIT WORKSPACE. AS THE 
USE OF SUBROUTINES IS A KEY DECISION IN THE DESIGN OF A WORKSPACE, IN 
PARTICULAR, THIS TOOLKIT WORKSPACE, IT IS IMPORTANT TO WARN OF MISSING 
SUBROUTINES CONVENIENTLY AND RELIABLY. <CHECKSUBROUTINE> IS USED 
CONSISTENTLY THROUGHOUT THE TOOLKIT WORKSPACE, FOR EVERY FUNCTION THAT 
USES OTHER TOOLKIT FUNCTIONS AS SUBROUTINES. 


ARGUMENTS: 


<N> CHARACTER VECTOR 
NAME OF A FUNCTION 


<L> CHARACTER VECTOR 
NAMELIST OF FUNCTIONS 


RESULT: 


<CHECKSUBROUTINE> CHECKS FOR THE PRESENCE OF FUNCTIONS <L> IN THE 
WORKSPACE. IF ANY ARE NOT PRESENT, A WARNING MESSAGE IS GIVEN. <N> IS 
NOTED IN THE MESSAGE, AND IS USED FOR INFORMATIONAL PURPOSES ONLY. 


ONLY A WARNING MESSAGE IS GIVEN. HOWEVER, THE PROGRANNER CAN CHANGE THE 
FUNCTION TO SUSPEND IF FUNCTIONS ARE WOT PRESENT, OR TO AUTOCOPY THE 
FUNCTIONS INTO THE WORKSPACE. 


PAGE 6-64 4 PROGRAMMING 


YeL AR 


GLUE FUNCTION. RETURN LEFT ARGUMENT <L> 


INTRODUCTION: 
<a> IS USED TO WRITE SEVERAL APL STATEMENTS ON A SINGLE LINE. BECAUSE 
THERE IS NO SUCH FACILITY IN STANDARD APL, PROGRAMMERS HAVE USED 
DIFFERENT TECHNIQUES: 
- EMBEDDED ASSIGNMENT B(Ol0+1;) 
- CATENATING EMPTY VECTOR 4A+10,0pB+20 


THIS IS OFTEN CALLED ‘GLUEING' STATEMENTS TOGETHER. WHILE THERE IS DEBATE 


AMONG PROGRAMMERS AS TO THE LONG-TERM BENEFIT OF DOING ANY KIND OF 
"GLUEING', THE TECHNIQUE IS POPULAR. 


THE <> FUNCTION IS A FAIRLY ‘CLEAN' WAY OF DOING THIS IN STANDARD APL. 
ESSENTIALLY, THE FUNCTION SIMPLY RETURNS ITS LEFT ARGUMENT. THIS HAS 
THE EFFECT OF IGNORING WHATEVER IS ON ITS RIGHT, THAT IS, THE ENTIRE APL 
STATEMENT TO THE RIGHT OF THE FUNCTION. 


THE BXAMPLES SHOW SOME APPLICATIONS WHERE THE USE OF THE ‘GLUE' FUNCTION 
IS FAIRLY WELL ACCEPTED. 


BUT A WORD OF CAUTION -- OVER-USE OF THIS FUNCTION CAN QUICKLY LEAD TO 
UNREADABLE CODE. USE IT WITH DISCRETION, IF AT ALL. 


ARGUMENTS: 


RESULT: 


<Y> ARRAY 
THE RESULT <Y> IS THE ARRAY <L>. 


EXAMPLES: 

A+101 4 B+202 & C+303 

4,B,C 
101 202 303 
«eee. REMEMBER THAT <h> IS SIMPLY A DEFINED FUNCTION, AND THAT APL ORDER 
aoe OF BXECUTION IS PRESERVED. THE EXAMPLE ABOVE IS EQUIVALENT TO THE 
seeee FOLLOWING THREE STATEMENTS IN THE ORDER GIVEN. 

C+303 

B+202 

4101 


oeeee DISPLAY 4 MESSAGE AND EXIT THE FUNCTION 
>0 A O+'ERROR MESSAGE' 


eeees PUT A COMMENT AT THE END OF A LINE 
4+10 4 ‘DEFINE ORDER OF MAGNITUDE 
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Y+LABEL AIF CONDITION 
IF STATEMENT. RETURN <LABEL(I]> IF <CONDITION(I]> = 1 


BECAUSE THERE IS NO ‘IF THEN ELSE' STATEMENT IN APL, PROGRAMMERS HAVE USED 
SEVERAL METHODS TO DO ‘IF THEN' BRANCHING: 

+CONDITIONPLABEL 

+CONDITION+LABEL 

+CONDITION/LABEL 


ANOTHER METHOD THAT IS VERY COMMON IS TO DEFINE AN 'IF' FUNCTION IN SUCH A 
WAY THAT ONE CAN WRITE ...« 

+LABEL IF CONDITION 
‘Ie’ RAS A VERY INTUITIVE SYNTAX, AND <AIF> IS THE TOOLKIT IMPLEMENTATION. 
A NOTEWORTHY FEATURE OF <AIF> IS THAT AN ‘ELSE' LABEL CAW BE USED. 
ALSO, IT CAN BE USED AS AN ‘IF" STATEMENT OR A 'CASE' STATEMENT. 


ARGUMENTS: 
<LABEL> NUMERIC VECTOR 
THIS IS TYPICALLY A VECTOR OF LIWE LABELS. 


<CONDITION> NUMERIC VECTOR 
THIS IS A BOOLEAN VECTOR. 


(pLABBL)=(pCONDITION) OR (pLABEL) = (1+pCONDITION) 
RESULT: 


<Y> NUMERIC VECTOR 


IF THE DIMENSIONS ARE THE SAME, THE RESULT IS CONDITION/LABEL. WHEN 
1=(pCONDITION), THE STATEMENT IS INTERPRETED AS ‘IF CONDITION IS TRUE, GO 
TO LINE <LABEL>'. WHEN 1<pCONDITION, THE STATEMENT IS INTERPRETED AS A 
'CASE' STATEMENT, THAT IS, ‘IF CONDITION(I] IS THE FIRST TRUE CONDITION, 
GO TO LINE <LABEL[I]>'. F 


IF THE DIMENSION OF LABEL IS GREATER THAN CONDITION, THE RESULT IS 
(CONDITION,1)/LABEL. THE IF STATEMENT CAN BE INTERPRETED AS AW ‘IF' OR 
‘CASE’ STATEMENT WITH AN 'BLSE' LABEL, THAT IS, IF NONE OF THE CONDITIONS 
ARE TRUE, GO TO THE LINE —1+LABEL (THE LAST LABEL IN THE LIST). 


IF,NONE OF THE CONDITIONS ARE TRUE, AN BMPTY VECTOR IS RETURNED. 
EXAMPLES: 


NOTE: IN THESE EXAMPLES, <AIF> IS SHOWN WITHOUT THE BRANCH STATEMENT 
DEFINE THE FOLLOWING 'LABELS' 
L107 
£2013 
£3021 
L40«23 
eeeee AN 'IF* STATEMENT 
I+0 
£10 AIF X>0 


veces 4 "CASE" STATEMENT (SEVERAL POSSIBILITIES) 
reat! 
(L10,L20,L30) AIF X="ABC* 


seeee A CASE STATEMENT WITH AN ‘ELSE' LABEL 
Xe'D! 
(£10,L20,L30,L40) AIF X="ABC" 
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Z+NAME BAL J 
DISPLAY BALANCE (NESTING LEVELS) IN LINES <J> OF FUNCTION <NAME> 


INTRODUCTION: 


THIS FUNCTION IS A VERY USEFUL TOOL TO ANALYZE THE STATEMENT LINES OF A 
FUNCTION. IT USES THE 'EXPLODED' DISPLAY PRODUCED <BALANCE>. SEE THE 
EXAMPLES BELOW AND REFER ALSO TO THE EXAMPLES FOR <BALANCE>. 


THE <BAL> FUNCTION IS ESSENTIALLY A ‘DRIVER' FUNCTION FOR THE FUNCTION 
<BALANCE>. IT DOBS CHECKS THE ARGUMENTS AND APPLIES <BALANCE> TO BACH 
REQUESTED LINE. 


ARGUMENTS: 


<NAME> CHARACTER VECTOR OR SCALAR 
THE NAME OF THE FUNCTION 


<I> NUMERIC VECTOR 
A VECTOR OF LINE NUMBERS WITHIN THE FUNCTION <NANE> 


RESULT: 


<Y> CHARACTER MATRIX 
THIS IS THE FORMATTED DISPLAY SHOWING LINE NUMBERS AND EXPLODED DISPLAY. 


SOURCE: 


ADAPTED FROM XREBF WORKSPACE (IBM) 


EXAM! 


BALANCE' BAL 17 18 19 
BALANCE(17) 
KM+[ /MB 


BALANCE(18] 
We(...)ON,0.1(. 
-MB 0 Kl 


BALANCE(19] 
TH(o O(c vccccccccesIOMelecoe] %o* 
PN (4444+) 9.>MB “0.5 
11+KM 
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Z+N CHANGE S 
CHANGE NAME TO NEW TEXT IN FUNCTION <N> USING <S> = /NAME/NEW 


THE PURPOSE OF <CHANGE> IS TO CHANGE OCCURRENCES OF A NAME TO A 'NEW' TEXT 
(TYPICALLY A NEW NAME) IN A FUNCTION. THIS IS USEFUL, FOR EXAMPLE, WHEN 
CHANGING A FUNCTION OR VARIABLE NAME THROUGHOUT A FUNCTION. 


THERE ARE TWO NOTEWORTHY FEATURES OF THE TOOLKIT IMPLEMENTATION: 


(1) ONLY NAMES ARE CHANGED. FOR EXAMPLE, IF THE ‘OLD' STRING IS 'A', 
THEN ONLY OCCURRENCES OF THE NAME 'A' ARE CHANGED, NOT OCCURRENCES OF 
THE TEXT ‘A’ WITHIN OTHER (NON-BLANK) TEXT. NOTE THAT NAMES WITHIN 
QUOTES AND IN COMMENTS ARE CHANGED, TOO. 


(2) <CHANGE> IS NOT WRITTEN AS A MONOLITHIC FUNCTION. IT USES MORE 
BASIC TOOLKIT FUNCTIONS. 


ONLY ONE FUNCTION CAN BE CHANGED AT ONE TIME, BUT <N> EASILY BE EXTENDED 
TO A SET OF NAMES. 


ARGUMENTS: 


<N> CHARACTER VECTOR " 
THE NAME OF THE FUNCTION TO BE CHANGED 


<S> CHARACTER VECTOR 
THE SPECIFICATION OF THE OLD AND NEW SEQUENCES: 
/ NAME /NEW 


RESULT: 

<Z> CHARACTER OR NUMERIC VECTOR 
<Z> IS THE RESULT RETURNED BY QFX AFTER IT ATTEMPTS TO ‘FIX' THE CHANGED 
TEXT. IF IT IS SUCCESSFUL, THE NAME OF THE FUNCTION IS RETURNED, BUT ANY 
RESULT FROM OFX IS POSSIBLE, FOR INSTANCE, IF THE CHANGED TEXT CANNOT BE 
FIXED. 


ANOTHER RESULT IS THAT THE NEW FUNCTION IS DEFINED IN THE WORKSPACE. 
BXANPLES: , 


Vv Y+r9 X;VARX 

[1] EXAMPLE FOR <CHANGE> 

[2] NOTE OCCURENCE OF NAME X IN A COMMENT 

C3] X+,x 

(4] VARX+xX+X 

(5] YevaRY 
v 

seeee CHANGE ALL OCCURRENCES OF THE NAME 'X' TO 'Y' IN <F9> 

"FQ" CHANGE '/X/Y' 


‘so veee NOTE THAT OCCURRENCES OF ‘X' WITHIN TEXT, E.G. THE WORD ‘EXAMPLE’, 
sees WERE NOT CHANGED 
Vv Y+FS Y;VARX 
[1] aBXAMPLE FOR <CHANGE> 
[2] NOTE OCCURENCE OF NAME Y IN A COMMENT 
(3] Y+,¥ 
(4] VARX<Y+Y 
[5] Y+«vARX 
v 
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I«CHECKSIZE LIST 
RETURN REPORT SHOWING SIZES OF OBJECTS IN <LIST>, SORTED BY SIZE 


IT IS USEFUL TO BE ABLE TO GENERATE A LIST OF THE SIZES OF OBJECTS.THIS 
CAN BE USEFUL, FOR EXAMPLE, FOR EXAMPLE, WHEN ASSESSING A 'WSFULL' 
SITUATION, OR WHEN ‘CLEANING UP* A WORKSPACE. <CHECKSIZE> RETURNS A 
REPORT OF THE SIZES OF THE OBJECTS IN <LIST>. THE REPORT IS SORTED BY 
SIZE IN ORDER TO EMPHASIZE THE OBJECTS TAKING THE MOST SPACE. 


xx WARNING ** <CHECKSIZE> IS SYSTEM-DEPENDENT, BUT IS VERY USEFUL. 
IT MAY BE MODIFIED TO MEET THE REQUIREMENTS OF PARTICULAR SYSTEMS. 


ARGUMENTS: 
<LIST> CHARACTER VECTOR OR MATRIX 
NAMELIST OF OBJECTS TO BE REPORTED. 


RESULT: 

<Y> CHARACTER MATRIX 
<Y> IS THE REPORT. THE FIRST LINE IS A TOTAL LINE. THE REMAINING LINES 
LIST THE OBJECTS AND THEIR SIZES IN DECREASING ORDER (THE LARGEST OBJECTS 
AT THE TOP OF THE LIST). SIZES ARE IN 'BYTES'. (SEE NOTES.) 


<CHECKSIZE> USES <VTYPE> -- A SYSTEM-DEPENDENT FUNCTION -- TO DETERMINE 
THE 'TYPE' OF EACH OBJECT. IT COMPUTES THE SIZE OF EACH OBJECT USING THE 
FOLLOWING TABLE. THIS DATA IS ALSO SYSTEM-DEPENDENT. 


BOOLEAN 1 BYTE, 8 ELEMENTS OF THE OBJECT 


2 
CHARACTER 1 BYTE = 1 ELEMENT OF THE OBJECT 
INTEGER 4 BYTES = 1 ELEMENT OF THE OBJECT 
REAL 8 BYTES = 1 ELEMENT OF THE OBJECT 


FUNCTION 1 BYTE 


1 ELEMENT OF THE CANONICAL REPRESENTATION 
(THIS IS STRICTLY AN APPROXIMATION.) 


BXAMPLES: 


seeee TO COMPUTE SIZES OF ALL VARIABLES --- CHECKSIZE QWL 3 
eeeee TO COMPUTE SIZES OF ALL VARIABLES STARTING WITH ‘L' 
CHECKSIZE 'L‘* QNL 2 
145 xxxxex 
78 LINE78 
67 LINE67 


oeeee CHECKSIZEEXAMPLE IS A NUMERIC VECTOR OF INTEGERS 
VTYPE CHECKSIZEEXAMPLE 

3 
CHECKSIZEEXAMPLE 

12345 
pCHECKSIZEEXAMPLE 


4x pCHECKSIZEEXAMPLE 
20 
CHECKSIZE ‘'CHECKSIZEEXAMPLE' 


20 ReeeRRRRRRRERERE 


20 CHECKSIZEEXAMPLE 
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Z+FGL N 
FIND GLOBAL REFERENTS OF FUNCTION <N> 


A REFERENT OF A FUNCTION IS AN IDENTIFIER MENTIONED IN THE TEXT OF THE 
FUNCTION, BUT NOT IN A COMMENT OR CHARACTER STRING. A REFERENT IS GLOBAL 
IF IT IS NOT LOCALIZED IN THE HEADER OR A LINE LABEL. GLOBAL REFERENTS 
ARE FREQUENTLY -A SOURCE OF PROBLEMS IN DEBUGGING OR IW UNDERSTANDING 
UNFAMILIAR FUNCTIONS. 


THIS FUNCTION IS VERY USEFUL IN DETERMINING THE GLOBAL REFERENTS OF A 
FUNCTION. IT IS ESSENTIALLY A USEFUL 'DRIVER' FUNCTION. IT DOES 
BRROR-CHECKING OF THE ARGUMENTS AND APPLIES THE FUNCTION <GLOBAL> TO THE 
SPECIFIED FUNCTION. 


REFER ALSO TO THE DESCRIPTION OF <GLOBAL>. 


ARGUMENTS: 
<N> CHARACTER VECTOR OR SCALAR 
THE NAME OF AN UNLOCKED FUNCTION 


RESULT: 
<Z> CHARACTER MATRIX 
<Z> IS A MATRIX WHOSE ROWS CONTAIN IN ALPHABETICAL ORDER THE GLOBAL 


REFERENTS OF THE FUNCTION <N>. 


<FGL> HAS UNDERSCORED VARIABLES TO AVOID SHADOWING FUNCTION NAMES WITHIN 
THE WORKSPACE. ANOTHER ADVANTAGE OF THE ‘DRIVER' FUNCTION APPROACH IS 
THAT THE PRIMARY FUNCTION, <GLOBAL>, WHICH <FGL> CALLS, DOES NOT HAVE TO 
BE CONCERNED ABOUT SHADOWED FUNCTION NAMES. 


BXAMPLES: 
FGL ‘Fi1' 
Oro 
£ 
J0G 
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FNLIST © 
FUNCTION LISTER. DISPLAY ALL FUNCTIONS IN LIST <I> 


INTRODUCTION: 
THIS IS A SIMPLE FUNCTION FOR PRODUCING A SORTED LIST OF FUNCTIONS IN A 
WORKSPACE. IT IS HANDY TO HAVE WHEN THERE IS NO SUCH ‘UTILITY' PRESENT 
IN YOUR APL SYSTEM. IT CAN QUICKLY BE MODIFIED TO TAKE ADVANTAGE OF 
SPECIAL SYSTEM FEATURES OR TO PRODUCE THE LISTING ON A PRINTER. 


ARGUMENTS: 


<T> CHARACTER VECTOR OR MATRIX 
NAMELIST OF FUNCTIONS 
IF <T> IS EMPTY, IT DEFAULTS TO <QNL 3> WITH <FNLIST> AND ITS SUBROUTINES 
REMOVED. 


RESULT: 
THE FUNCTIONS IN <T> ARE DISPLAYED ON THE TERMINAL. TWO BMPTY LINES 
SEPARATE EACH FUNCTION LISTING. IF <T> IS NON-EMPTY, ALL THE FUNCTIONS 
IN <T> ARE DISPLAYED. IF <T> IS EMPTY, ALL THE FUNCTIONS IN THE 
WORKSPACE EXCEPT <FNLIST> AND ITS SUBROUTINES ARE DISPLAYED. 


<FNLIST> WAS WRITTEN WITH SUBROUTINES <GRADEUP> AND <DISPLAYFUNCTION>. 
ON SYSTEMS WITH THESE FUNCTIONS AS SPECIAL SYSTEM FUNCTIONS, IT MAY BE 
CONVENIENT TO TAKE ADVANTAGE OF THEM. 


<FNLIST> CAN ALSO BE QUICKLY MODIFIED TO PRINT LISTINGS ON A PRINTER. 


BXAMPLES: 
eeeee TO DISPLAY ALL THE FUNCTIONS IN THE WORKSPACE --- FNLIST '‘' 
eeeee NOTE: <FNLIST> AND ITS SUBROUTINES WOULD NOT BE DISPLAYED 


seeee 10 DISPLAY PARTICULAR FUNCTIONS 
FNLIST ‘JR JL JC 
Vv RC YX 
{1] JUSTIFY CENTRE. CENTRE ALL ROWS OF LEFT-JUSTIFIED CHARACTER ARRAY <X> 
(2] a.K FORMATTING 
(3) Re(-LO.5x+/a\* '=OX)OF 
v 


V RIL YX 
(1] | aJUSTIFY LEFT. JUSTIFY CHARACTER ARRAY <X> 
(2]  #.K FORMATTING 
(3] Re(+/a\' '=X)OX 
v 


Vv RR YX 
(1] JUSTIFY RIGHT. JUSTIFY CHARACTER ARRAY <X> 
(2] #.£ ' WORD' = JR‘ WORD ° 
[3] a.K FORMATTING 
C4] Re(-+/a\O" '=X)OYX 
v 
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G+F GLOBAL M 
GLOBAL REFERENTS IN CANONICAL FORM <M> OF FUNCTION <F> 


INTRODUCTION: 


<F> CHARACTER VECTOR 
THE NAME OF AN UNLOCKED FUNCTION 


<M> CHARACTER MATRIX 
THE CANONICAL MATRIX OF FUNCTION <F> 


RESULT: 


<G> CHARACTER MATRIX 
<G> IS A MATRIX WHOSE ROWS CONTAIN IN ALPHABETICAL ORDER THE GLOBAL 
REFERENTS OF THE FUNCTION <F>. 


Q-WAMES WOULD NORMALLY BE DELETED FROM THE RESULT FOR CLARITY. SINCE 
MEMBERSHIP IN THE SET OF VALID Q-FUNCTIONS IS SYSTEN-DEPENDENT, <GLOBAL> 
DOES NOT DELETE THEM. 


SOURCE: 


ADAPTED PRON ALGORITHM 142 -- GLOBAL REFERENTS OF 4 FUNCTION (APL QUOTE 
QUAD, 10, 4%, JUNE 1980) ROGER BUI 


EXAMPLES: 
Vv ReA Fil B;T 
[1] #BXAMPLE FOR <GLOBAL> 
C2] R+JOG|A+BtT+. NUM 
C3] R+C/4+\RCOI03) 


"F11' GLOBAL OCR 'F11° 
oro 
c 
J0G 
NUM 
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LOOP x 


THIS IS AN EXAMPLE OF A ‘BOILERPLATE' FUNCTION. IT SAVES THE PROGRAMMER 
THE EFFORT OF CONTINUALLY RE-WRITING A COMMON PIECE OF 'LOOPING' CODE. 


VERY OFTEN IN THE PROGRAMMING PROCESS ONE NEEDS TO PERFORM A SET OF 
COMPUATIONS OR PROCESSING ACTIONS FOR EVERY ELEMENT IN A LIST. THESE ARE 
OFTEN ONE-TIME TASKS AND NEED TO BE CODED QUICKLY. TO EXPEDITE THIS 
REQUIREMENT, ONE CAN USE A COPY OF THE <LOOP> FUNCTION. IT CONTAINS THE 
TYPICAL CODE FOR INDEXING THROUGH EVERY ROW OF A MATRIX. ONE CAN INSERT 
THE PARTICULAR PROCESSING STATEMENTS AT THE APPROPRIATE PLACE IN THE 
FUNCTION, EXECUTE THE FUNCTION, AND COMPLETE THE TASK QUICKLY. 


ARGUMENTS: 


<I> VECTOR OR MATRIX 
RESULT: 


A VECTOR IS RESHAPED TO A 1-COLUMN MATRIX, SO THAT INDIVIDUAL BLEMENTS OF 
THE VECTOR CAN BE REFERENCED AS M(I;], THE SAME AS FOR ROWS OF A 
MATRIX. 


BYAMPLES: 


DISPLAY SHAPE OF EVERY ITEM IN LIST 
«s+ &® NOTE: SOME OF THESE ‘ONE-TIME’ FUNCTIONS BECOME PERMANENT MEMBERS OF 
sesie's ONE'S COLLECTION OF ‘UTILITIES’. 
v F10 MsZ3H3HANE 
(1] aBXAMPLE OF USING <LOOP> 
(2] a.K EXAMPLE 


[3] DISPLAY SHAPE FOR BEVERY VARIABLE IN LIST <N> 
Ca] M+'' aBOX aDB,' '.M 

(s] A+itow 

(6] I+o 


C7) £1:>(W<I+Z+1)/L2 
(8) PUT COMPUTATIONS USING M[I;] HERE 
(9) NAMB+N(I3] 
(10] 2° NAME, ¥p',HAME 
(11) +Z1 
(12) £2: 
v 
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Y+S NL N 
NAMELIST OF FUNCTIONS OR VARIABLES <N> WITHIN SPECIFICATION <S> 


<NL> IS AN ‘ENHANCED' VERSION OF THE SYSTEM FUNCTION QNL. THE LEFT 
ARGUMENT OF <NL> IS MORE POWERFUL THAN THAT OF QWL. IT PERMITS, FOR 
EXAMPLE, SEARCHING FOR NAMES BASED ON A ‘WILD CARD‘ CHARACTER. THE 
TYPICAL OUTPUT IS ALSO MORE COMPRESSED. THIS FUNCTION IS VERY USEFUL FOR 
SEARCHING FOR NAMES OF PARTICULAR FUNCTIONS OR VARIABLES, AND IT PROMOTES 
THE USE OF STANDARDIZED NAMES WITHIN A WORKSPACE. 


ARGUMENTS: 
<S> TEXT VECTOR 
<S> CONTAINS ONE OR MORE SEARCH SPECIFICATIONS, SEPARATED BY BLANKS, 
CHOSEN FROM THE FOLLOWING SET: 
I I *I Ie*Y aXe * 
= I-Y P Sree 2 f 
THESE SPECIFICATIONS ARE EXACTLY AS DEFINED FOR <PICK>. 


<N> NUMERIC VECTOR 
<|N> MUST BE A VALID ARGUMENT TO ONL, FOR BXANPLE, 2 STANDS FOR VARIABLES, 
3 STANDS FOR FUNCTIONS, 2 3 STANDS FOR VARIABLES AND FUNCTIONS, ETC. <N> 
CAN BE POSITIVE OR NEGATIVE. 


RESULT: 
<I> CHARACTER MATRIX 
A MATRIX OF FUNCTION AND/OR VARIABLE NAMES IS RETURNED. THE LIST Is 


COMPUTED EXACTLY AS DESCRIBED FOR <PICK>. 


THE MATRIX IS EITHER IN COMPRESSED FORMAT (SEVERAL COLUMNS OF WANES, EACH 
ROW NO LONGER THAN (PW), OR IN STANDARD FORMAT (ONE NAME PER ROW). 
POSITIVE <N> MEANS THAT THE NAMBLIST IS COMPRESSED. IF AT LEAST ONE OF 
THE ELEMENTS OF <N> IS NEGATIVE, THE NAMELIST IS A STANDARD MATRIX. THIS 
CONVENTION CORRESPONDS WITH THE COMMON USES OF THE NL FUNCTION. 


EXAMPLES: 


ALL VARIABLES STARTING WITH 'GA' (BUT NOT ‘GAOUT') 
"Geax ~GAOUT*' NL 2 


Gac GADOCPH . GANROWS GASATRACEFLAG GAXXX 
GACPUCONAOT GAFNCAT GAPACTABLE GATEMP GaYYY 
GADOCCAT GAFNFN GAREVNAMES GATIMETRACEACP 
GADOCFN GAFNPN GaSORTACS GATRACEAOLD 


.. ALL FUNCTION NAMES STARTING WITH LETTER SEQUENCES BETWEEN 'AR* AND ‘CE' 
"AR-CE' NL 3 


ARABIC BAL BASE BOXER Bor BR CAPTURE CATOFFUN 
ARRAY BALANCE BESIDE BOXF BP BROWSE CATEGORY 
«eeee FORCE STANDARD MATRIX OUTPUT 
‘AR*' NL 3 
ARABIC 


ARRAY 


«eee. SEARCH CRITERIA CAN BE COMBINED 
"AR* Jx* NL 3 
ARABIC ARRAY JC JL dR JULIAN 
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L QSTOP NANES 
SET STOP VECTOR 


INTRODUCTION: 


THIS FUNCTION IS THE COMPANION FUNCTION TO <QTRACE>. IT IS ALNOST 
EQUIVALENT EXCEPT THAT IT SETS A STOP VECTOR RATHER THAN A TRACE VECTOR. 


FOR A COMPLETE DESCRIPTION SEE THE DOCUMENTATION FOR <QTRACE>. 
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I«L QTRACE N 


SET TRACE FOR FUNCTIONS <N> ON LINES <L>, OPTIONALLY AVOID COMMENTS 


IT IS USEFUL IN THE PROGRAM DEVELOPMENT PROCESS TO BE ABLE TO QUICKLY 
INVOKE THE TRACE FACILITY. THIS AMOUNTS TO QUICKLY SETTING AND REMOVING 
THE TRACE VECTOR. TO THIS END THE FUNCTION <QTRACE> PROVIDES TWO USEFUL 
ENHANCEMENTS TO TA, THE USUAL APL TRACING FACILITY. 


(1) ABILITY TO SET THE TRACE VECTOR FOR SEVERAL FUNCTIONS AT ONCE. 
(2) ABILITY TO AVOID TRACING COMMENT LINES. 


THIS FUNCTION HAS A COMPANION FUNCTION CALLED <QSTOP>. IT HAS 
SIMILAR ARGUMENTS AND CORRESPONDS TO Sh, SETTING THE STOP VECTOR. 


USING QTRACE AND QSTOP TOGETHER ARE VERY POWERFUL. FOR EXAMPLE, IN ORDER 
TO SET TRACE AND STOP VECTORS FOR THE FUNCTION <Fi>, ONE EXECUTES ... 

'' QTRACE '‘Fi' 

** QSTOP '‘Fi' 
AS WILL BE SEEN, THIS SETS THE TRACE AND STOP VECTOR FOR THE NON-COMNENT 
LINES ONLY. ONE CAN THEN ‘STEP THROUGH' THE FUNCTION USING +OLC. IT IS 
PARTICULARLY CONVENIENT THAT COMMENT LINES ARE NOT TRACED IN THIS PROCESS. 


THE EASE OF USING <QTRACE> AND <QSTOP> SHOULD BE CONTRASTED WITH USING TA 
AND Si.’ ONE WOULD ORDINARILY TYPE THE FOLLOWING ... 

TAF1i«.99 

SaFi+.99 
THIS REQUIRES THE RATHER ARBITRARY USE OF <99> OR SOME OTHER SUITABLY 
LARGE NUMBER. IW ADDITION, THE FUNCTION IS TRACED AND STOPPED ON ALL 
COMNENT LINES, WHICH IS USUALLY NEEDLESS AND AGGRAVATING. 
THE GENERALITY OF <QTRACE> ALLOWS IT TO REPLACE FUNCTIONS SUCH AS 
"TRACEOFF' AND ‘TRACEON' WHICH ARE OFTEN FOUND IN UTILITY WORKSPACES. 


ARGUMENTS: 

<L> NUMERIC SCALAR OR VECTOR 
THIS DETERMINES THE VECTOR OF LINES TO BE TRACED, AND MAY BE VIEWED AS AN 
EXTENSION OF THE NUMERIC ARGUMENT TO TA. 


THE FOLLOWING DEFINITIONS ARE THE SANE AS FOR TA. 
LIZ] > 0 MEANS TRACE LINE L(I) 
L=0 MEANS REMOVE TRACE VECTOR FOR THE FUNCTION 


THE NEXT DEFINITION IS UPWARDS COMPATIBLE WITH THE USAGE OF TA. 
£(Z] <0 MEANS TRACE LINE L({I) IF LINE IS NOT A COMMENT 


THE NEXT DEFINITION IS NOT COMPATIBLE WITH THE USAGE OF TA, BUT IS A 
USEFUL DEVIATION. 
(pL)=0 MEANS DEFAULT TO NEGATIVE NUMBERS FOR ALL LINES, THAT IS, 
TRACE ONLY NON-COMMENT LINES. (USUAL[Y ‘EMPTY' MEANS 
THE SAME AS 0, NAMELY, REMOVE THE TRACE VECTOR.) 


<N> CHARACTER VECTOR OR MATRIX 
NAMELIST OF FUNCTIONS TO BE TRACED. 


RESULT: 

<I> NUMERIC VECTOR 
<I> IS THE VECTOR OF LINE NUMBERS TO BE TRACED FOR THE LAST FUNCTION IN 
THE NAMELIST <N>. 


<QTRACE> EXECUTES TA AND APPLIES A SUITABLE TRACE VECTOR TO EACH FUNCTION 
IN <N>. IF A FUNCTION CANNOT BE FOUND, NOTHING IS DONE TO ANY FUNCTION. 
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THE FUNCTIONS <QTRACE> AND <QSTOP> ARE ALMOST EQUIVALENT, EXCEPT FOR THE 
THE APPLICATION OF TA OR SA, RESPECTIVELY. THEREFORE, THE TWO FUNCTIONS 
CALL A THIRD FUNCTION, <STOPTRACE>, WHICH PERFORMS THE WORK. ON SYSTEMS 
THAT USE THE SYSTEM FUNCTIONS QTRACE AND QSTOP, IT IS STRAIGHTFORWARD TO 
MODIFY <STOPTRACE> TO CALL THESE FUNCTIONS. 


EXAMPLES: 
wees THE FOLLOWING FUNCTION HAS LOTS OF COMMENTS 
V Y*F15 M343B3C 
[1] EXAMPLE FOR QTRACE. FUNCTION HAS LOTS OF COMMENTS. 
[2] aENCODES COMPARISON ROWS USING BASE 2 AND COMPUTES DUPLICATE ENCODINGS 
(3] aNOTE: : 
C4] a (Np2)14 GIVES NUMBERS AS LARGE AS +/2*0,.N (ORIGIN 1) 
(5] a THEREFORE, N=1+pM CAN'T BE TOO LARGE. 
[6] COMPUTE COMPARISON MATRIX 
[7] A+Ma.=OM : 
8] ENCODE EACH ROW AS BASE 2 NUMBER. 
tel ANOTE THAT (1tpA) = (1tpM) AND THAT 214 IS THE SAME AS ((1tp4)p2)44 
10] B+214 
(11] aSELECT FIRST OCCURRENCE OF EACH NUMBER (1.8. ROW) 
(12] C+(BvB)=19B 
(13] aRETURN UNIQUE ROWS 
C14] Y+c/M 3 


v 
seees IT IS BASY TO TRACE JUST THE NON-COMNENT LINES 
O+z+'* QTRACE ‘F15' 


8 11 13 15 
«+ ONLY LINES 8 11 13 15 ARE TRACED. 
eeeee AND <Z> CAN BE SAVED FOR FURTHER USE. 


NOTE: IN THE FOLLOWING EXAMPLES, THE RESULT IS NOT SHOWN TO KEEP THE 
BXAMPLES CONCISE. . 


TRACE THE FIRST LINE OF ALL FUNCTIONS 
1 QTRACE QWL 3 


IN WORKSPACES WHERE 'A' PREFACES ‘UTILITY' FUNCTIONS THAT NEED NOT BE 
TRACED, IT IS CONVENIENT TO USE THE <WL> TOOLKIT FUNCTION TO SPECIFY 
THE FUNCTION WAMELIST. ‘ 

TRACE THE FIRST LINE OF ALL FUNCTIONS BETWEEN 'A' AND ‘Z' 

1 QTRACE ‘A-Z' NL 3 


seeee TRACE ALL NON-COMMENT LINES IN THE FUNCTION <Fi> 
"* QTRACE 'Fi' 

seees TO TRACE ALL LINES (ASSUMING NO MORE THAN 100 LINES!) ... 
(1100) QTRACE ‘Fi' 

seeee TRACE ALL NON-COMMENT LINES FROM 20 TO 30 
(-194130) QTRACE 'Fi' 

weees TRACE LINES 3 AND 7, AND LINES 9 10 11 ONLY IF NOT A COMMENT 
(3 7,-9 10 11) QTRACE 'F1' 

«eee. TURN TRACE OFF FOR ALL FUNCTIONS 
0 QTRACE QNL 3 
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Z+SORTL N 
SORT LOCAL NAMES IN HEADER OF FUNCTION <N> AND FIX RESULT 


INTRODUCTION: 


THIS FUNCTION IS A USEFUL TOOL TO SORT THE NAMES LOCALIZED IN A FUNCTION 
HEADER. <SORTL> IS A 'DRIVER' FUNCTION FOR <SORTLOCAL>. 


ARGUMENTS: 


<N> CHARACTER VECTOR 
NAME OF A FUNCTION 


RESULT: 


<Z> CHARACTER OR NUMERIC VECTOR 
<Z> IS THE RESULT RETURNED BY OFX AFTER IT ATTEMPTS TO ‘FIX' THE CHANGED 
TEXT. IF IT IS SUCCESSFUL, THE NAME OF THE FUNCTION IS RETURNED, BUT ANY 
RESULT FROM (FX IS POSSIBLE, FOR INSTANCE, IF THE CHANGED TEXT CANNOT BE 
FIXED. 


ANOTHER RESULT IS THAT THE NEW FUNCTION IS DEFINED IN THE WORKSPACE. 


BXANPLES: 


seeees SUPPOSE <F12> HAS THE FOLLOWING HEADER LINE ... 
(Ocr *F12")(13] 
F12 X;010;2;4;V;4R;TS 


«+ <SORTL> SORTS THE HEADER LINE 
SORTL ‘F12' 


F12 
(Ocr '¥12")(13] 
F12 X;4;4R37S;V;2;010 
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ReVIYPE X 
GIVE 'TYPE' 0. 


LOGICAL, 2=CHAR,3=INTEGER,4=REAL 


ex WARNING ** THIS IS A SYSTEM-DEPENDENT FUNCTION. 


ARGUMENTS: 


<R> NUMERIC SCALAR 
<R> GIVES THE 'TYPE* OF THE VARIABLE <X>, ACCORDING TO THE FOLLOWING TABLE: 


BOOLEAN 1 
CHARACTER 2 
INTEGER 3 
REAL 4 
EXAMPLES: 


SBE DOCUMENTATION FOR <CEECKSIZE>. 
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R+DEL ARRAY STR 
GENERAL VECTOR RESHAPE. RESHAPE VECTOR <STR> ACCORDING TO THE DELIMITERS <DEL> 


INTRODUCTION: 


THIS FUNCTION RESHAPES A VECTOR INTO AN ARRAY ACCORDING TO THE FIELD 
DELIMITERS IN <DEL>. <ARRAY> IS A GENERALIZATION TO N DIMENSIONS OF THE 
FUNCTION <ABOX>, WHICH ONLY RESHAPES A VECTOR TO A MATRIX. 


ARGUMENTS: 

<DEL> VECTOR 
A VECTOR OF N DELIMITERS WHERE THE FIRST DELIMITER SPECIFIES THE 
FIRST DIMENSION, THE SECOND DELIMITER SPECIFIES THE SECOND DIMENSION, 
ETC. 


<STR> VECTOR 
A VECTOR OF DATA TO BE RESHAPED INTO AN ARRAY. 


RESULT: 
<R> ARRAY 
THE RESULT IS AN ARRAY WITH RANK (1+pDEL) 


SOURCE 
ANDREAS WERDER (I.P.SHARP, ZURICH) 
TAKEN FROM: 
APL, A DESIGN HANDBOOK FOR COMMERCIAL SYSTEMS, ADRIAN SMITH 


BXAMPLES: 

«RESHAPE VECTOR TO RANK-3 ARRAY. </> SEPARATES PLANES, <,> SEPARATES ROWS 
O+MAT+'/,' ARRAY 'APPLE,BETTY ,CAT/ONE,TWO,THREE' 

APPLE 

BETTY 

CAT 


«eeeeRESHAPE VECTOR TO MATRIX 
" ' ARRAY ‘APPLE BETTY CAT' 
APPLE 
BETTY 
CAT 


eee SAME AS ABOX 
*' ' aBOX ‘APPLE BETTY CAT‘ 
APPLE 
BETTY 
CaT 
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Y«W BOXF V 
BOX FIELDS. <Y¥(I;]> IS A FIELD OF VECTOR <V> SPECIFED BY WIDTH <W{I]> 


THIS FUNCTION RESHAPES A VECTOR INTO A MATRIX, GIVEN A SET OF ‘FIELD’ 
WIDTHS. THIS APPROACH IS MORE DIRECT THAN ABOX WHEN THE FIBLD WIDTHS ARE 
KNOWN IN ADVANCE. 


ARGUMENTS: 
<W> NUMERIC VECTOR 
THIS VECTOR REPRESENTS THE FIELD WIDTHS OF VECTOR <V> 


<V> VECTOR, CHARACTER OR NUMERIC 


RESULT: 
<Y> MATRIX 
4A MATRIX REPRESENTATION OF VECTOR <¥>. 
THE FILL CHARACTER IS BLANK FOR CHARACTER MATRICES, 0 FOR NUMERIC MATRICES. 


SOURCE: 


ADAPTED FROM APL PROGRAMMING GUIDE (IBM) P. 26 
EXAMPLES: 


RECORD+'JOHN DOB6S ANY STREETTORONTO ONTARIO’ 
WIDTHS+8 13 15 
WIDTHS BOXF RECORD 

JOHN DOE 

65 ANY STREET 

TORONTO ONTARIO 


2 3 4 BOXF 8 8 99 99 99 100 100 100 100 
8 8 0 0 
99 99 99 ) 
100 100 100 100 


RESHAPE a DIMENSION 


'R+RCN DINENSION N 


COMPUTES (N-1) DIMENSION ARRAY FROM A COORDINATE/DATA MATRIX <N> 


SOURCE: 


DAN KING (TELEPHONE: 416-979-2035) 
BXAMPLES: 


DaATA*S 491 32111323223112894125 
RCN+3 3913 
DATA 


Quseone 


NNN FRR Rw 
» 
= 


280 COCO CON www NNNON 


RCM DIMENSION DATA 


©2820 COCO COCO HEH shwHE 


ewe CoCo KOF 
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Y+A DUPARRAY M ; 
DUPLICATE ARRAY <M> DUPLICATE <A{1]> TIMES ALONG COORDINATE <A(2]> 


THIS FUNCTION ‘DUPLICATES' OR ‘MAKES COPIES OF' THE ENTIRE ARRAY <M>. THE 
COPIES ARE CATENATED ALONG THE COORDINATE SPECIFIED BY A[2]. FOR 

EXAMPLE, IF <M> IS A MATRIX AND <A> IS 5 1, THE RESULT WILL BE 5 COPIES 
OF <M> CATENATED ALONG THE THE FIRST COORDINATE, THAT IS, ALONG THE ROWS. 
IF 4(2)=2 IN THIS BXAMPLE, THE CATENATION WOULD TAKE PLACE ALONG THE 
SECOND COORDINATE, THAT IS, ALONG THE COLUMNS. 


ARGUMENTS: 
<A> NUMERIC VECTOR 
AC1] NUMBER OF TIMES TO DUPLICATE THE ARRAY <M> 
AL2] COORDINATE ALONG WHICH DUPLICATION TAKES PLACE. A(2] MUST BE IN 
THE RANGE (1,ppM), THAT IS, LESS THAN OR BQUAL TO THE RAWK OF <M>. 
AL2]=1 MEANS THE FIRST COORDINATE, A(2]=2 MEANS THE SECOND 
COORDINATE, BTC. AL2] DEFAULTS TO THE LAST COORDINATE. 


<M> ARRAY, NUMERIC OR CHARACTER 
ARRAY TO BE DUPLICATED 


RESULT: 


<¥> ARRAY 
THE RANK OF <Y¥> IS THE SAME AS THE RANK OF <M>. <Y> IS SIMILAR TO <M> IN 
THAT IT CONSISTS OF 1 OR MORE 'COPIBS' OF <N> 


THE ALGORITHM USES THE FUNCTION <REPARRAY>. SEE COMMENTS IN <DUPARRAY>. 
EXAMPLES: 


O+M+3 3p'4BC1230(04" 


2 1 DUPARRAY M 


2 2 DUPARRAY M 
ABCABC 
123123 
ogacta 
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YeMATRIX X 
RESHAPE ANY ARRAY <X> (RANK 0 - N) TO A MATRIX 


INTRODUCTION: 


THIS IS A GENERAL FUNCTION THAT RETURNS A MATRIX BQUIVALENT OF AN ARRAY OF 
ANY RANK. 


ARGUMENTS: 


<X> ARRAY (RANK O - ¥), CHARACTER OR NUMERIC 
RESULT: 
<¥> MATRIX 
EXAMPLES: 
O+M+MATRIX 2 
oN 
O+N+NATRIX -' APPLE’ 
APPLE 
pu 
15 


O+M+MATRIX 2 2 2918 
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Y+*A REPARRAY M 
REPLICATE ARRAY <M>. REPLICATE <A(1]> TIMES ALONG COORDINATE <A[2]> 


INTRODUCTION: 
THIS FUNCTION 'REPLICATES' SLICES OF THE ARRAY M. FOR EXAMPLE, IF MIS A 
MATRIX, REPARRAY CAN REPLICATE ('REPEAT') ROWS OR COLUMNS. IF MIS A 
RANK-3 ARRAY, REPARRAY CAN REPLICATE PLANES, ROWS, OR COLUMNS. THE 
REPLICATION FACTOR A(1] IS THE SAME FOR ALL SLICES. 


<A> NUMERIC VECTOR 
AC1] NUMBER OF TIMES TO REPLICATE '‘SLICES' 
AC(2] COORDINATE ALONG WHICH REPLICATION TAKES PLACE. A(2] MUST BE IN 
THE RANGE (1,ppM), THAT IS, LESS THAN OR EQUAL TO THE RANK OF <N>. 
A(2]=1 MEANS THE FIRST COORDINATE, A(2]=2 MEANS THE SECOND 
COORDINATE, ETC. A(2] DEFAULTS TO THE LAST COORDINATE. 


<M> ARRAY, NUMERIC OR CHARACTER 
ARRAY TO BE REPLICATED 


<Y> ARRAY 
THE RANK OF <Y¥> IS THE SAME AS THE RANK OF <M>. <Y> IS SIMILAR TO <M> 
BICEPT THAT ‘SLICES' OF <M> HAVE BEEN REPEATED. 


BXANPLES: 


O+N+3 3p'48C1230()4" 


2 1 REPARRAY M 


2 2 REPARRAY M 
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ReC UNBOX X 
UNBOX MATRIX <X>. REMOVE TRAILING <C[2]>, DELIMIT VECTOR <X> BY <C{i]> 


THIS FUNCTION IS THE ‘INVERSE’ OF ABOX. IT TAKES A MATRIX RIGHT ARGUMENT 
AND RETURNS THE CORRESPONDING VECTOR. 


ARGUMENTS: 
<C> 2-ELEMENT VECTOR, NUMERIC OR CHARACTER 
IF <C> IS EMPTY OR A SCALAR OR 1-ELEMENT VECTOR, <C> IS TAKEN TO BE 
A 2-ELEMENT VECTOR DEFINED BY 2+C 
cC1) SEPARATER CHARACTER (OR NUMBER) 
cC2] FILL ELEMENT USED TO PAD IRREGULAR ROWS OF THE MATRIX 


<I> MATRIX, NUMERIC OR CHARACTER 
<X> AND <C> MUST BE BOTH CHARACTER OR BOTH NUMERIC 


RESULT: 

<R> VECTOR 
THE RESULT IS THE LOGICALLY DELIMITED VECTOR CORRESPONDING TO MATRIX <X>. 
IT IS DELIMITED INTO ‘FIELDS' SEPARATED BY C(1i)}. 


BXAMPLES: 


'/* unBOX Y 
APPLE/BETTY/CAT/DOG/ 

O+M+'/" aBox */* UNBOX V 
APPLE 
BETTY 
CAT 
DOG 

oN 
45 


‘ O+v¥+3 391 2 “1 10 20 30 100 “1 “1 
2 “t 
10 20 30 


100 1 1 


999 “1 UNBOX V 
1 2.999 10 20 30 999 100 999 
sees. ABOX AND UNBOX ARE ‘INVERSES' 
999 “1 ABOX 999 “1 UNBOX V 
1 2 1 
10 20 30 
100 “1 “1 
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Y+CHARS ABOX X 
"BOX' VECTOR <X> USING SEPARATOR AND FILL CHARACTER <CHARS> 


<ABOX> RETURNS A ‘*MATRIX' CORRESPONDING TO A VECTOR <X> LOGICALLY 
DELIMITED INTO FIELDS BY A ‘SEPARATER' CHARACTER. THIS FUNCTION ACCEPTS 
NUMERIC OR CHARACTER ARGUMENTS. THE ‘BOX' FUNCTION IS FOUND AS A SYSTEM 
FUNCTION (BOX) SOME APL IMPLEMENTATIONS, BUT THIS SYSTEM FUNCTION IS NOT 
‘STANDARD' APL. IT ALSO APPEARS IN MANY COLLECTIONS OF ‘UTILITIES' AND 
HAS BEEN CALLED ‘VMAT' (VECTOR TO MATRIX), ‘V2M', ‘MATRIXIFY', BTC. 


ARGUMENTS: 
<CHARS> 2-ELEMENT VECTOR, NUMERIC OR CHARACTER 
IF CHARS IS EMPTY OR A SCALAR OR 1-ELEMENT VECTOR, CHARS IS TAKEN TO BE 
A 2-ELEMENT VECTOR DEFINED BY 2+*CHARS. 
CHARS(1) SEPARATER CHARACTER (OR NUMBER) 
CHARS(2) FILL ELEMENT USED TO PAD IRREGULAR ROWS 


<I> VECTOR, NUMERIC OR CHARACTER 
<X> AND <CHARS> MUST BE BOTH CHARACTER OR BOTH NUMERIC 


RESULT: 
<Y> MATRIX 
THE RESULT IS A MATRIX PRODUCED BY TAKING EACH LOGICAL ‘FIBLD' 
OF X TO BE A ROW OF Y. IRREGULAR ROWS ARE PADDED WITH THE FILL ELEMENT. 


BXAMPLES: 


‘/* sBOX *APPLE/BETTY/CAT’ 


"aQ' ABOX ‘APPLEAABETTYACAT' 


«sees ABOX MAKES A MATRIX FROM A VECTOR; UNBOX MAKES A VECTOR 

«eeee FROM A MATRIX. THEY ARE THE INVERSE OF EACH OTHER ... 
"/* UNBOX '/* ABOX *APPLE/BETTY/CAT* 

APPLE/BETTY/CAT/ 


. NOTE THAT THE VECTOR HAS A ‘CANONICAL FORM', NAMELY, A 
. . SEPARATOR AT THE END OF BACH FIELD. ‘APPLE/BETTY/CAT/* IS 
eeeese TREATED THE SAME AS ‘APPLE/BETTY/CAT' 


"/* ABOX ‘APPLE/BETTY/CAT/' 
APPLE 
BETTY 
CAT 


0 999 ABOX 1 2 0 10 20 0 100 200 300 
1 2 999 
10 20 999 
100 200 300 
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Y+BP Xx 
SBARCH FOR 'BREAK POINTS' BASED ON BEGINNING OF SEQUENCES IN <X> 


A ‘BREAK POINT' IS TAKEN TO MEAN THE BEGINNING OF A SEQUENCE OF IDENTICAL 
ELEMENTS. IN A VECTOR A SEQUENCE IS TAKEN TO MEAN A SEQUENCE OF ELEMENTS. 
IN A MATRIX A SEQUENCE IS TAKEN TO MEAN A SEQUENCE OF ROWS. 


ARGUMENTS: 
<I> VECTOR OR MATRIX 
A SCALAR IS TREATED AS A ONE ELEMENT VECTOR. 


RESULT: 
<I> BOOLEAN VECTOR 
YCr]=1 IF X(I] (x(I3]) IS THE BEGINNING OF A SEQUENCE 


BXAMPLES: 
V+" AABBBCDDDD' 
BP V 
1010011000 


NOTE THAT THIS RESULT CAN BE USED IN SEVERAL WAYS, B.G. 
« TO COMPUTE THE NUMBER OF SEQUENCES ... 
+/BP V 


eeeee TO PUT A BLANK SPACE (OR LINE) BEFORE EACH SEQUENCE 


(BXPANDBE BP V)\V 
AA BBB C DDDD 


O+M+'/' ABOX ‘APPLE/APPLE/BETTY/CAT/CAT’ 
APPLE 
APPLE 
BETTY 
CAT 
CAT 
(EXPANDBE BP M)\M 


APPLE 
APPLE 


BETTY 


CAT 
CAT 
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Z+M FINDCOORDS S 
FIND COORDINATES OF SEQUENCE <S> IN MATRIX <M> 


ARGUMENTS: 


<M> MATRIX (CHARACTER OR NUMERIC) 

<S> VECTOR (CHARACTER OR NUMERIC) 

THE TWO ARGUMENTS MUST BE BOTH CHARACTER OR BOTH NUMERIC. 
RESULT: 


<Z> NUMERIC MATRIX (Nx2) 
EACH ROW REPRESENTS THE COORDINATES OF ONE OCCURRENCE OF <S> IN <N>. 


USE OUTER PRODUCT ‘*.=' TO SYSTEMATICALLY FIND BVERY OCCURRENCE OF 
SUBSTRING EXISTING IN MATRIX. IF SUBSTRING EXISTS,THERE WILL BE A 
SEQUENCE OF 1'S IN THE 1ST DIMENSION, THAT IS, RESULT(1;2;Y1, 
RESULT(1;X;Y+1], RESULT(1;X;Y¥+2] ... WILL BE 1. 


ROTATE '(....)®MATCH' TO LINE SEQUENCES UP. EACH SUCCESSIVE ROW IS 
ROTATED ONE MORE THAN THE PREVIOUS ROW. 


REDUCE ‘af' TO FIND IF THERE WERE ANY SEQUENCES. 
SOURCE: 


BXAMPLES WORKSPACE (IBM) 


BXAMPLES: 


O+N+6 Sp'APPLEBETTYTYPE ' 


M FINDCOORDS '‘P' 


M FINDCOORDS 'TY' 


Bene 


O+m+3 4p11234111112323 
3 

1 

3 


eee 
NEN 


M FINDCOORDS 1 1 


WNHNE BEF OUWN OF FUE 


Rone 
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Y«A FINDUT B 
FIND UNIQUE TRUNCATION. FIND POSITION OF TRUNCATION <B> IN VECTOR <A> 


WITHIN A LIST OF WORDS, A ‘UNIQUE TRUNCATION' IS A TRUNCATED WORD THAT 
UNIQUELY DETERMINES A WORD FROM THE GIVEN LIST. FOR EXAMPLE, 
CONSIDER THE LIST ... 


ADD APPEND CLEAR CHANGE DELETE END ENTER INSERT 


‘A' CANNOT DISTINGUISH BETWEEN ‘ADD' AND 'APPEND'. HOWEVER, 'AD' UNIQUELY 
DETERMINES ‘ADD (WITHIN THE LIST). ‘G' CANNOT DETERMINE ANYTHING WITHIN 
THE LIST, AS THERE IS NO WORD STARTING WITH 'G'. 


THIS FUNCTION GIVES: THE ORDINAL POSITION WITHIN THE LIST OF THE WORD 
DETERMINED BY A GIVEN TRUNCATION. 


ARGUMENTS: 

<A> CHARACTER VECTOR 
THIS IS TYPICALLY A LIST OF WORDS. IT IS REQUIRED THAT ONE BLANK PRECEDE 
THE LIST AND THAT ALL WORDS ARE SEPARATED BY ONLY ONE BLANK. THEREFORE, 
+/* 'sA GIVES THE NUMBER OF WORDS IN THE LIST. 


<B> CHARACTER VECTOR 
A SCALAR IS TREATED AS A 1-ELEMENT VECTOR. THIS IS THE TRUNCATION AND 
MUST NOT CONTAIN BLANKS. 


RESULT: 


<Y>  _NUMERIC SCALAR 
Y="1 <B> IS NOT A UNIQUE TRUNCATION 
Y=0 <B> IS NOT FOUND 
Y>0 <Y¥> IS THE INDEX OF <B> IN <A> 
IF <B> IS EMPTY, THE RESULT <Y> IS 0. 


SOURCE: 


APL QUOTE-QUAD (ABOUT 1974), J.P.BENYI 
EXAMPLES: 


WORDS+' ADD APPEND CLEAR CHANGE DELETE END ENTER INSERT‘ 
+/WORDS="' ' 


ARESULT= 1 (NOT UNIQUE) 
WORDS FINDUT 'A' 


ARESULT=0 (NOT FOUND) 
WORDS FINDUT 'G' 


ARESULT>O (INDEX OF WORD OR UNIQUE TRUNCATION OF WORD) 
WORDS FINDUT ‘AD* 


WORDS FINDUT 'CL" 
WORDS FINDUT ‘ENT’ 


AEMPTY VECTOR 
WORDS FINDUT '* 
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Y«FIRST X 
FIRST OCCURRENCE OF BLEMENTS IN VECTOR OR MATRIX <X> 


<FIRST> RETURNS A BOOLEAN VECTOR <Y> WHICH SELECTS THE FIRST OCCURENCE OF 
ELEMENTS IN A VECTOR OR A MATRIX. (AN ELEMENT IS TAKEN TO MEAN <X{I]> 
FOR VECTOR <X>, AND <X(I;]> FOR MATRIX <X>.) THIS RESULT HAS MANY 
APPLICATIONS, SUCH AS ... 

© THE FIRST OR ONLY APPEARANCE OF A ROW 

© THE INDEX NUMBERS OF THESE OR CORRESPONDING ROWS 

© CORRESPONDING ROWS OF AN INVERTED FILE 

© OBTAINING THE UNIQUE ELEMENTS OF A VECTOR OR MATRIX 


THE FUNCTION HAS NOT BEEN GENERALIZED TO ARRAYS OF RANK GREATER THAN 2. 


ARGUMENTS: 


<X> VECTOR OR MATRIX, CHARACTER OR NUMERIC 
RESULT: 


<Y¥> BOOLEAN VECTOR 
YCI] = 1 MEANS THAT X(I] (X(I;]) IS THE FIRST OCCURENCE OF THAT ELEMENT IN 
THE ARRAY. 
Y(I] = 0 OTHERWISE. 


SOURCE: 


THE ALGORITHM INVOLVED WITH MATRICES IS WORTHY OF STUDY, AND MAY BE 
ANALYZED USING FUNCTION <F5> ... 


V Y+FS M3A;B 
{1] FIRST OCCURRENCE OF ROWS IN MATRIX <M> 
[2] ILLUSTRATION OF ALGORITHM USED IN <FIRST> 
[3] aCOMPUTE COMPARISON MATRIX 
C4] 9 A+MA.=QM 
[5] aCOMPUTE FIRST ONE FROM TOP OF EACH COLUMN 
[6] a(FIRST OCCURENCE OF EACH UNIQUE ROW) 
C7] Be<kA 
{8] aClI]=1 MEANS I-TH ROW IS FIRST UNIQUE OCCURENCE OF THIS ROW 
(9] Yev/B 

v 


THERE ARE SEVERAL ALTERNATIVE ALGORITHMS FOR <FIRST>. IT IS INTERESTING 
AND INSTRUCTIVE TO STUDY AND TRACE THE FOLLOWING FUNCTIONS THAT 
ILLUSTRATE THESE ALGORITHMS. 


<F4> USES SUM-SCAN ... 


Vv Y+F4 M34383;C;010 
[1] aFIRST OCCURRENCE OF ROWS IN MATRIX <M> 
(2] ALTERNATE ALGORITHM FOR <FIRST> 
[3] aUSES SUM-SCAN AND ROTATION 
C4] Oro+1 
[5] aCOMPUTE COMPARISON MATRIX 
[6] 4+MA.=OM 
a ACOMPUTE SUM-SCAN. FIRST 1 INDICATES FIRST OCCURRENCE 
8 Be+hA 
[9] amBRING ALL OCCURRENCES OF FIRST 1 TO COLUMN 1 
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[10] C+(~1+114pM)OB 
{11] aPICK OUT 1'S 
(12] y+1=c{31] 

v 


<F6> USES BASE 2 ENCODING ... 


Vv Y+F6 M3A3B 
[1] aFIRST OCCURRENCE OF ROWS IN MATRIX <N> 
[2] aALTERNATE ALGORITHM FOR <FIRST> 
ie AENCODES COMPARISON ROWS USING BASE 2 AND COMPUTES DUPLICATE ENCODINGS 
4] aNOTE: 
(s] a (Np2)14 GIVES NUMBERS AS LARGE AS +/2*0,.N (ORIGIN 1) 
(6] a THEREFORE, N=1+pM CAN'T BE TOO LARGE. 
7] aCOMPUTE COMPARISON MATRIX 
(8] AMA 28M 
[9] ENCODE EACH ROW AS BASE 2 NUMBER. 
[10] aNOTE THAT (itpA) = (itpM) AND THAT 244 IS THE SAME AS ((1+pA)p2)14 
(11) Be2.A 
[12] SELECT FIRST OCCURRENCE OF EACH NUMBER (I.E. ROW) 
C13] Y+(B.B)=1pB 


IF THE FUNCTION WERE GENERALIZED TO ARRAYS GREATER THAN RANK 3, IT COULD 
BE DONE IN TWO WAYS: 

(1) CONSIDER ROWS ONLY AND SHOW FIRST OCCURENCE OF ROWS IN PLANES 
* (2) CONSIDER FIRST OCCURRENCE OF PLANES IN RAWNK-3, CUBES IN RANK-4, BTC. 


BXAMPLES: 
seeee THE CASE OF MATRICES 
pie Q+m+'/" aBOX ‘APPLE/BETTY /APPLE/DOG/CAT/CAT/BETTY /APPLE* 
A 
BETTY 
APPLE 
DOG 
CAT 
CAT 
BETTY 
APPLE 
FIRST M 
11011000 
O+M+6 ‘2914 


FIRST M 
110000 
seeee THE CASE OF VECTORS 
FIRST 'ABCDCDBABLCLABKCIEFGHIGJKKZZYX* 
111100100100001010111001001011 
FIRST ‘APPLE/BETTY/CAT* 
110111101010100 
seeee THE FUNCTION ACCEPTS NUMERIC ARGUMENTS TOO 
FIRST 1 2 3 10 20 3 2:1 20 
111110000 
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Y«M PICK V 
SELECT. (PICK) ROWS FROM CHARACTER <M> USING NAME SPECIFICATION <V> 


INTRODUCTION: 
<PICK> USES A SEARCH SPECIFICATION TO ‘PICK' SELECTED ROWS FROM A 
CHARACTER MATRIX. VARIOUS ‘WILD CARD' CHARACTERS CAN BE USED IN THE 
SPECIFICATION, AND SPECIFICATIONS CAN BE COMBINED TO ADD OR REMOVE ITEMS 
FROM THE ‘PICK' LIST. 


ARGUMENTS: 

<V> TEXT VECTOR 
<¥> CONTAINS ONE OR MORE SEARCH SPECIFICATIONS, SEPARATED BY BLANKS, 
CHOSEN FROM THE FOLLOWING SET: 


I Ix aX Ie*Y aXe * 
= X-Y Z- =! 


THESE SPECIFICATIONS ARE THE SAME AS DEFINED FOR <WILDCARD> AND <RANGE>. 
IN ADDITION, A NAME SPECIFICATION CAN BEGIN WITH TILDE <~>, FOR EXAMPLE, 
~I«x OR ~X-Y. 


RESULT: 

<Y> NUMERIC VECTOR 
Y{I]=1 IF M(I;] FALLS WITHIN THE SEARCH SPECIFICATIONS. 
Y(I)=0 OTHERWISE 


IF A SPECIFICATION DOES NOT BEGIN WITH <~>, THE NAMES PICKED OUT ARE ADDED 
TO THE CURRENT LIST OF NAMES. IF A SPECIFICATION BEGINS WITH <~>, THE 


NAMES PICKED OUT ARE REMOVED FROM THE CURRENT LIST. (IF 4 TILDE 
SPECIFICATION IS THE FIRST SPECIFICATION IN <V>, AND NAMES ARE REMOVED 
FROM THE ENTIRE SET.) 


EXAMPLES: 
<M> IS SORTED TO CLARIFY THE EXAMPLES. THIS IS NOT TO IMPLY THAT 
"PRE-SORTING' IS NECESSARY. 
M+'' ABOX ‘ANNIE APPLE BETTY CARS CAT CATS CATTLE EGG FARM FLAG! 
M PICK ‘Ax' 
1100000000 
M PICK 'Ax Fx' 
1100000011 
«eeee ALL WORDS STARTING WITH 'C' IN POSITION 1, ‘T' IN POSITION 3 
"" MATACROSS (M PICK ‘*C?T*')/M 
CAT CATS CATTLE 
eeeee SAME AS ABOVE BUT EXACTLY 4 LETTERS 
"* MATACROSS (M PICK ‘C?T?')/M 
caTS 
eeeee ALL WORDS STARTING WITH 'C' 
M PICK 'Cx' 
0001111000 
«eee. ALL WORDS BETWEEN 'B' AND 'F' EXCEPT THOSE STARTING WITH '‘C' 
‘* MATACROSS (M PICK ‘'B-F ~C*')#M 
BETTY EGG FARM FLAG 
seeee ALL WORDS EXCEPT THOSE STARTING WITH 'C' OR 'F* 
'" MATACROSS (M PICK '~Cx ~Fx')/M 
ANNIE APPLE BETTY &GG 
«eee. ALL WORDS STARTING WITH ‘C' AND ENDING WITH 'S' 
"" MATACROSS (M PICK ‘C*S')/M 
CARS CATS 
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Y+V PICKN N 
PICK NUMBERS FROM <N> USING POSITIVE INTEGER SPECIFICATION <V> 


THIS FUNCTION PROVIDES ‘A SEARCH SPECIFICATION TO 'PICK' SELECTED NUMBERS 
FROM A VECTOR OF POSITIVE INTEGERS. A RANGE SPECIFICATION CAN BE USED, 
AND MORE THAN ONE SPECIFICATION CAN BE MADE AT ONE TIME. 


ARGUMENTS: 

<V> TEXT VECTOR OR MATRIX 
THIS IS THE ‘FILTER’ TO BE APPLIED TO <N>. THE VECTOR CAN CONTAIN ONE OR 
MORE SEARCH SPECIFICATIONS. A MATRIX IS TREATED AS A VECTOR, BACH ROW 
CONTAINING ONE OR MORE SPECIFICATIONS. THE VECTOR CAN HAVE THE FOLLOWING 
SYNTAX ... (X AND Y STAND FOR POSITIVE INTEGER SPECIFICATIONS) 


ZI RETURN EXACT MATCH ON X 


I-Y RETURN NUMBERS = X AND < Y. 
IF X IS LEFT OUT, IT DEFAULTS TO THE MINIMUM IN <N>. 
IF Y IS LEFT OUT, IT DEFAULTS TO THE MAXIMUM IN <N>. 
X-  ° RETURN NUMBERS = X 
-Y RETURN NUMBERS < Y 
S RETURN ALL NUMBERS 


<N> NUMERIC VECTOR 
THE VECTOR OF POSITIVE INTEGERS WHICH WILL BE SEARCHED 


<Y> NUMERIC VECTOR 
THE NUMBERS FROM <N> THAT FALL WITHIN THE SEARCH SPECIFICATIONS. 


EXAMPLES: 

"S* PICKN 112 
oo00010000000 

"S-' PICKW 1.12 
ooooiiziiaiii1i1 

"4 10-" PICKN 112 
111100000111 

(*4-10' PICKW 112)/112 
456789 10 
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Y+M RANGE S 
PICK NAMES IN MATRIX <M> USING 'RANGE' SEARCH SPECIFICATION <S> 


A NAME IS CONSIDERED TO BE A SEQUENCE OF NON-BLANK CHARACTERS. 
ARGUMENTS: 


<M> CHARACTER MATRIX 
A LEFT-JUSTIFIED MATRIX OF NAMES. 


<S> CHARACTER VECTOR 
THIS IS ONE VALID NAME SPECIFICATION (NO BLANKS). THE NAME SPECIFICATION 
MUST TAKEN FROM THE FOLLOWING LIST: 


x-Y RETURN NAMES STARTING WITH ANY CHARACTER SEQUENCE BETWEEN X AND Y 
(INCLUSIVE). IF X IS LEFT OUT, X DEFAULTS TO THE FIRST CHARACTER IN 
THE COLLATING SEQUENCE. SIMILARLY, Y DEFAULTS TO THE LAST 
CHARACTER IN THE COLLATING SEQUENCE, AS FOLLOWS... 
X- RETURN NAMES STARTING WITH ANY SEQUENCE BETWEEN X AND LAST CHARACTER 
=f, RETURN NAMES STARTING WITH ANY SEQUENCE BETWEEN FIRST CHARACTER AND Y 
= RETURN ALL NAMES : 


X STANDS FOR ANY SEQUENCE OF NON-BLANK CHARACTERS. THE SPECIAL CHARACTER 
<?> CAN BE USED, BUT IN THE NATURE OF THE DEFINITION OF THE "RANGE', IT 
IS ESSENTIALLY IRRELEVANT. FOR EXAMPLE, AR?-CR?DE IS DEFINED TO HAVE THE 
SAME MEANING AS AR-CR. 


RESULT: 

<I> NUMERIC VECTOR 
Y(rJ=1 IF M(I;] FALLS WITHIN THE SEARCH SPECIFICATIONS. 
YC(I]=0 OTHERWISE 


EXAMPLES: 
PICK 16 FUNCTIONS AT RANDOM FROM THE LIST OF TOOLKIT FUNCTIONS AND SORT THEM. 
(SORTING IS NOT NECESSARY, BUT IT MAKES THE EXAMPLES CLEARER.) 
78 MATDOWN M+'' SORT TOOLKIT(?16p1tpTOOLKIT;] 
NL 


BASE EXAMPLE SORTLOCAL 
CONDENSE EXAMPLE OUTOPEN SR 
CPUCON FTIME PICKN THRU 
DAYS FUNCTION SEARCH TIMER 


M RANGE 'A-B' 

1000000000000000 

weeee EVERYTHING STARTING WITH LETTERS BETWEEN ‘L' AND THE END 
M RANGE 'L-* 

ooo00000011111111 

veces BVERYTHING STARTING WITH LETTERS BETWEEN ‘CHA AND ‘JL* 
78 MATDOWN (M RANGE ‘CHA-JL‘)/M 

CONDENSE DAYS EXAMPLE FUNCTION 

CPUCON EXAMPLE FTIME 

weeee BVERYTHING STARTING WITH LETTERS BETWEEN ‘QU' AND 'WAL* 
78 MATDOWN (M RANGE 'QU-WAL')/M 

SEARCH SR TIMER 

SORTLOCAL THRO 
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Y+M SEARCH S : 
BOOLEAN VECTOR WHERE SEARCH SEQUENCE <S> IS FOUND IN ROWS OF MATRIX <N> 


CONTAINING SPECIFIC SEQUENCES. 


ARGUMENTS: 


<M> MATRIX 
<S> VECTOR 
<M> AND <S> MUST BE BOTH NUMERIC OR BOTH CHARACTER. 


RESULT: 
<¥> NUMERIC VECTOR 
Y(rJ=1 IF MUI3] CONTAINS THE SEQUENCE <S> 


BXAMPLES: 


V«'JOHN DOE/JANE DOB/RICHARD ROB/JIM CROW/JIM SCEMIDT/* 
V+¥,'JIM SCHNEIDERMAN/MAN REY/DICK BLACK/JANE SMITH/JOBN SNITH/* 
V+V,'JOHN BLACK/JOHN BLACK/JOHN BLACKSMITH/DICK SMITH/' 
Ve'/* aBoX Vv 
V SEARCH 'BLACK' 
oo000001001110 
Vv SEARCH 'GGG' 
00000000000000 
(V SEARCH *JI*)#¥ 
JIM CROW 
JIM SCHMIDT 
JIM SCHNEIDERNAN 
(V SEARCH 'NAN')/¥ 
JIM SCHNEIDERMAN 
MAN REY 
(V SEARCH ‘JIN SCEN')#¥ 
JIM SCHNEIDERMAN 


oeeeeNUMERIC ARGUMENTS 
O+v+4 Sp.7 
345 
t2'3 
671 
aS 6 * 
V SEARCH 234% 
1 


PAGE 6-96 ss SEARCHING 


Y+v SS S 
SEARCH FOR ALL LOCATIONS OF SEQUENCE <S> IN VECTOR <¥> 


THIS FUNCTION, Y+V SS S, HAS SIMILAR ARGUMENTS TO Y«ViS. IT SEARCHES FOR 
<S> IN <V>. FOR BOTH FUNCTIONS WE CAN ASK THE QUESTION: IN <V>, WHERE IS 
<S>? THE DIFFERENCE IS THAT <SS> TREATS <S> AS A COMPLETE SEQUENCE. 


ARGUMENTS: 


<V> VECTOR 

<S> VECTOR 

RESULT: 

<> ~ yoMERIC VECTOR 


INDICES OF ALL LOCATIONS OF <S> WITHIN <V>. THE RESULT IS IN 
ORIGIN 1, NO MATTER WHAT THE ORIGIN IN THE CALLING ENVIRONNENT. 


EXAMPLES: 

eeeeeFIND ALL LOCATIONS OF THE SEQUENCE ‘APPLE’ 
‘THE APPLE IN THE APPLE TREE' SS ‘APPLE' 

5 18 


«COMPARE WITH + 
‘THE APPLE IN THE APPLE TREE‘.'APPLE' 
56683 


«eeeeREBTURN EMPTY VECTOR IF NOT FOUND 
p'THE APPLE IN THE APPLE TREE’ SS ‘ORANGE' 


) 

«eeeeSS ACCEPTS NUMERIC ARGUMENTS 
11 22 33 44 SS 66 SS 33 44 

3 


aNOTE THAT THE RESULT IS BMPTY IF ANY ARGUNENT IS EMPTY 
po'' SS 'APPLE' 


e'xrx' ss *' 
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Y+TEXT SSN S 
SEARCH FOR OCCURRENCES OF THE NAME <S> IN VECTOR <TEXT> 


<SSN> IS A SPECIALIZED ADAPTATION OF <SS>. IT CONSIDERS <S> AS A WORD OR 
APL NAME WITHIN <TEXT>. IT DOES NOT CONSIDER <S> WHEN IT IS CONTAINED 
WITHIN A LONGER NON-BLANK SEQUENCE. THUS IT CONSIDERS <S> IN CONTEXT AS 
A SEMANTIC ELEMENT. 


ARGUMENTS: 


<TEXT> CHARACTER VECTOR 
<S> CHARACTER VECTOR 


RESULT: 

<Y> NUMERIC VECTOR 
THE INDICES OF THE STARTING LOCATIONS OF <S> WITHIN <TEXT>, CONSIDERING 
<S> AS A NAME. THE RESULT IS ALWAYS IW ORIGIN 1. 


SINCE <S> IS ANY VALID APL NAME, <O> IS INCLUDED IN THE LIST OF CHARACTERS 
THAT CAN APPEAR IN NAMES. 


EXAMPLES: 
TEXT+' AtA3xVARAtAX2' 
TEXT SSN ‘A' 

141 

«sees COMPARE WITH <SS> 
TEXT SS ‘A' 

1379 11 
TEXT+'THE CAT IS IN A BAT* 
TEXT SSN ‘A‘ 

15 

eeeee COMPARE WITH <SS> 
TEXT SS ‘A‘ 

6 15 18 


*X(O20;]*IOWRATEx2' SSW 'QIO' 
‘THE INDEX ORIGIN IS QI0, NOT QIOR' ssw 'QIO' 
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B+M WILDCARD S$ 
PICK NAMES IN MATRIX <M> USING ‘WILDCARD' SEARCH SPECIFICATION <S> 


INTRODUCTION: 


<WILDCARD> USES A GENERAL SEARCH SPECIFICATION TO 'PICK' SELECTED ROWS 
FROM A CHARACTER MATRIX OF NAMES. THE SEARCH SPECIFICATION CAN CONTAIN 2 
TYPES OF ‘WILD CARD' SPECIAL CHARACTERS, <*> AND <?>. 


A NAME IS CONSIDERED TO BE A SEQUENCE OF NON-BLANK CHARACTERS. 
ARGUMENTS: 


<M> CHARACTER MATRIX 
A LEFT-JUSTIFIED MATRIX OF NAMES. 


“<s> CHARACTER VECTOR 
THIS IS ONE VALID NAME SPECIFICATION (NO BLANKS). THE NAME SPECIFICATION 
MUST TAKEN FROM THE FOLLOWING LIST: 


I EXACT MATCH ON X 

Ix NAMES STARTING WITH X 

*X NAMES ENDING WITH X 
Ie NAMES STARTING WITH X AND ENDING WITH Y 
aXe NAMES CONTAINING X 

* ALL NAMES 


X AND Y STAND FOR ANY SEQUENCE OF NON-BLANK CHARACTERS. <*> IN EFFECT 
MATCHES AN ARBITRARY SEQUENCE OF ANY LENGTH, INCLUDING 0. X AND Y CAN 
ALSO CONTAIN THE SPECIAL CHARACTER <?>. THIS MATCHES EXACTLY ONE 
NON-BLANK CHARACTER. 


RESULT: 

<Y> NUMERIC VECTOR 
Y(I)=1 IF M(I;] FALLS WITHIN THE SEARCH SPECIFICATIONS. 
Y(IJ]=0 OTHERWISE 


CERTAIN RESTRICTIONS SPECIFIED ABOVE CAN BE RELAXED. THE MATRIX <M> CAN 
CONTAIN EMBEDDED BLANKS (I.E. BLANKS THAT SEPARATE NON-BLANK SEQUENCES). 
ALSO, A BLANK IN THE SEARCH SPECIFICATION WILL MATCH A BLANK (POSSIBLY 
TRAILING) IN THE ARGUMENT <M>. <?> REMAINS THE SAME, HOWEVER. IT WILL 
ONLY MATCH A NON-BLANK CHARACTER. IT WILL NOT MATCH AN EMBEDDED OR 
TRAILING BLANK. 


THE FUNCTION CAN BE GENERALIZED SO THAT <?> CAN MATCH AN EMBEDDED BLANK. 
FIRST MAKE ALL TRAILING BLANKS A SPECIAL SYMBOL. MAKE ALL CHARACTERS 
CORRESPONDING TO <?> A <?> (EXCEPT FOR THE DISTINGUISHED CHARACTER). 
THEN <?> WILL BE ABLE TO MATCH AN EMBEDDED BLANK, BUT WILL WOT MATCH A 
TRAILING BLANK. 


ALSO NOTE THAT IF THE SEARCH TEXT IS LARGER THAN <M>, THERE IS NO QUICK 
EXIT -- THE FUNCTION PROCEEDS AND FINDS NO MATCH THE LONG WAY. THIS IS 
ACCEPTABLE BECAUSE THIS SITUATION WILL BE RARE. 


EXAMPLES: 

78 MATDOWN M+TOOLKIT([120;] 
ADJUST BAL Box CHECKSIZE 
AFTER BALANCE BP CHECKSUBROUTINE 
AMORTIZE BASE CATEGORY CJULIAN 
ARABIC BESIDE CATOFFUN CONDENSE 


ARRAY BOXF CHANGE CONDENSE1 
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eeeee ALL NANES 

M WILDCARD ‘*' 

PLALL ALAR ALILALaAatia 
eeeee BXACT MATCH WITH ‘ARABIC’ 

M WILDCARD 'ARABIC' 
00010000000000000000 
seeee MAMES BEGINNING WITH ‘AR’ 

M WILDCARD ‘AR** 

11000000000000000 

NAMES BEGINNING WITH ‘A?4' (<?> MATCHES ANY CHARACTER.) 
(M WILDCARD ‘A?A%')/M 

ARABIC 

seeee NAMES CONTAINING ‘A?2A" 

(M WILDCARD ‘*A?4%')/M 
ARABIC 
BALANCE 
«. NAMES BENDING IW ‘IZE' 

(M WILDCARD **IZE*)/M 
AMORTIZE 
CHECKSIZE 
eeoee BYACTLY 4% CHARACTERS 

(M WILDCARD '?777')/M 
BASE 


BOX 
Borxi 
eeeee ANYTHING STARTING WITH 'G'? 
M WILDCARD 'Gs' 
00000000000000000000 
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R+X AROWMEM Y 
RUI]=1 IF <X(I;]> IS 4 ROW IN <Y> (TRAILING BLANKS IGNORED) 


INTRODUCTION: 
THE FUNCTION R+X AROWMEM Y HAS THE SAME ORDER OF ARGUMENTS AS ReXeY. THE 
DIFFERENCE IS THAT AROWMEM TREATS THE ROWS OF <X> AND <Y¥> AS COMPLETE 
SUBSTRINGS. . 


ARGUMENTS: 
<I> MATRIX, NUMERIC OR CHARACTER 
A SCALAR OR VECTOR IS TREATED AS A MATRIX WITH ONE ROW. 


<I> SAME AS <X> 
RESULT: 


<R> VECTOR ; 
R(IJ=1 X(I;] IS 4 ROW INY 
R(I X(I;] 1S NOT A ROW IN Y 

(pR)=(1tpx) 


EXAMPLES: 
Mi+3 Sp'APPLEBETTYCAT °* 
M2+4 Sp'APPLEBETTYDOG JACK ' 
M1 AROWMEM M2 


FIND ALL ROWS OF Mi THAT ARE PRESENT IN N2 


NOTE: TO ANALYZE THE NEXT EXPRESSION, EXPERIENCED PROGRANNERS REMENBER 
THAT THE LENGTH OF <Mi AROWMEM M2> IS 1+pM1, AND THIS IS THE CORRECT 
LENGTH TO COMPRESS <M1> ALONG THE FIRST COORDINATE. 

(M1 AROWMEM M2) /M1 


eeeee FIND ALL ROWS OF M1 NOT IN M2 
(~M1 AROWMEM N2)/M1 


seeee FIND ALL ROWS OF M2 NOT IN Mi! 
(~M2 AROWMEM M1) /#N2 


eeeee AROWMEM WORKS WITH NUMBERS AS WELL 
(2 2p1 2.1 4) AROWMEM 2 2p1 425 
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Y+CS GRADEUP M 
GRADEUP VECTOR FOR CHARACTER <M> BASED OW COLLATING SEQUENCE <CS> 


‘STANDARD' APL DOES NOT ALLOW 4 TO SORT CHARACTER ARGUMENTS. HOWEVER, A 
CHARACTER VECTOR <V> CAN BE SORTED BY V(ACS.V] WHERE <CS> IS THE 
COLLATING SEQUENCE TO BE APPLIED TO <V¥>. <GRADEUP> USES THIS TECHNIQUE 
T0 SORT <M>. SINCE THE ALGORITHM SORTS <M> COLUMN BY COLUMN, A MATRIX 
WITH AN ARBITRARILY LARGE NUMBER OF COLUMNS WILL BE SORTED ACCURATELY. 


ARGUMENTS: 

<CS> CHARACTER VECTOR 
THE COLLATING SEQUENCE TO BE APPLIED TO <M>. CS(1] IS TAKEN TO PRECEDE 
CS(2], CS(2] PRECEDES CS(3], ETC., IN THE COLLATING SEQUENCE. AN EMPTY 
<CS> DEFAULTS TO OAV, THAT IS, THE COLLATING SEQUENCE IS TAKEN TO BE THE 
ORDER IN THE ATOMIC VECTOR. SINCE THE ALPHABET AND NUMBERS IN DAV ARE 
USUALLY IN ALPHABETIC ORDER, THIS IS USUALLY GOOD ENOUGH. 


<M> CHARACTER VECTOR OR MATRIX 
RESULT: 


<Y> NUMERIC VECTOR 
<Y¥> IS THE ASCENDING SORT VECTOR FOR <N>. IF <M> IS A VECTOR, <M(Y]> WILL 
BE SORTED. IF <M> IS A MATRIX, <M(Y¥;]> WILL BE SORTED. 


EXAMPLES: 


ANNIE 

seees (COLLATING SEQUENCE IS SUPPLIED) 
MU' ABCDEFGHISKLMNOPQRSTUVWXYZ' GRADBUP N;] 

ANNIE 

APPLE 

BETTY 

z00° 

seeee HERE'S A TRICK TO SORT IN DESCENDING ORDER! 
ML(®* ABCDEFGHIJKLMNOPQRSTUVWXYZ') GRADEUP N;) 

z00 

BETTY 

APPLE 

ANNIE 


wees SORT ARBITRARILY LONG WORDS (COLLATING SEQUENCE IS DEFAULTED HERE) 
M«'/" sBOX *MOUNTBATTEN/MOUNTAINS/MOUNTAINOUS/MOUNTING/MOUNTOFOLIVES' 
ML'' GRADEUP N;] 

MOUNTAINOUS 

MOUNTAINS 

MOUNTBATTEN 

MOUNTING 

MOUNTOFOLIVES 


sees SORT A VECTOR 
v 
APPLE/ BETTY /Z00/ ANNIE 


VLE" GRADEUP ¥J 
AABEEEILNNOOPPTTYZ/// 


SORTING 
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Y+cs GRADEUP1 uM 
GRADEUP VECTOR FOR CEARACTER <M> BASED ON COLLATING SEQUENCE <C. 


I 'NTRODUCTION: 


THIS FUNCTION HAS THE SANE ARGUMENTS AND RESULT AS <GRADEUP>. THE 
DIFFERENCE IS THAT IT USES 4N ALGORITHM BASED OW BNCODING EACH ROW AS AN 
INTEGER, AND THEN SORTING THE INTEGERS. 


THERE IS 4 RESTRICTION THAT THE ENCODED NUMBERS CANNOT BE TOO LARGE. 
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Y+C SORT M 
SORT CHARACTER VECTOR OR MATRIX <M> ON COLUMNS <C> 


THIS FUNCTION PROVIDES A USEFUL SYNTAX TO RETURN A SORTED RESULT WITHOUT 
HAVING TO INDEX USING A ‘SORT VECTOR' RETURNED BY A ‘GRADE UP' FUNCTION. 
THUS, ONE CAN WRITE SORTEDN+C SORT M. THE FUNCTION SORTS OVER SPECIFIED 
COLUMNS. 


ARGUMENTS: 
<M> CHARACTER VECTOR OR MATRIX 
THE ARRAY TO BE SORTED 


<C> NUMERIC VECTOR 
<C> SPECIFIES THE COLUMNS ON WHICH TO SORT. 
AN EMPTY VECTOR DEFAULTS TO ALL COLUMNS. 


<GASORTACS> GLOBAL CHARACTER VECTOR 
THIS SPECIFIES THE COLLATING SEQUENCE. AN EMPTY VECTOR MEANS NO COLLATING 
SEQUENCE. AN UNDEFINED VARIABLE IS TREATED AS THOUGH QAV WERE SPECIFIED. 
A GLOBAL VECTOR IS USED AS IT IS INCONVENIENT TO PASS THREE EXPLICIT 
ARGUMENTS TO THIS FUNCTION. 


RESULT: 

<Y¥> CHARACTER VECTOR OR MATRIX 
A SORTED VERSION OF <M>. 4 VECTOR ARGUMENT <M> IS COMPUTED AS A 
ONE-COLUMN MATRIX (THAT IS, THE ELEMENTS ARE SORTED), BUT IS RESHAPED TO 
VECTOR IN THE RESULT. 


EXAMPLES: 


M+'' ABOX ‘APPLE ZEBRA BETTY DOG CAT ANNIE DIG' 
eeeee SORT BY FIRST COLUMN ONLY 
1 SORT M 
APPLE 
ANNIE 
BETTY 
CAT 
DOG 
DIG 
ZEBRA 


seeee SORT ALL COLUMNS 
'' SORT M 

ANNIE 

APPLE 

BETTY 

CAT 

DIG 

DOG 

ZEBRA 


eeeee SORT A VECTOR 
'* SORT ‘ZARSTTGUIA' 
AAGIRSTTUZ 
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THIS FUNCTION IS THE TYPICAL FUNCTION FOR REPLACING ONE SEQUENCE WITH 
ANOTHER IN A VECTOR. IT APPEARS IN SEVERAL APL IMPLEMENTATIONS AS OSR. 


ARGUMENTS: 

<S> VECTOR 
THIS VECTOR SPECIFIES AN 'OLD' AND A ‘WEW' SEQUENCE. THIS VECTOR 
HAS THE FORM: /OLD/NEW 
THE FIRST ELEMENT IS TAKEN TO BE THE DELIMITER ELEMENT AND SEPARATES THE 
‘OLD’ SEQUENCE (SEARCH SEQUENCE) FROM THE ‘NEW’ SEQUENCE (REPLACEMENT 
SEQUENCE). THIS ELEMENT NEED NOT BE A DISTINGUISHED CHARACTER (E.G. 
‘/") FOR CHARACTER ARGUMENTS, OR A DISTINGUISHED NUMBER FOR NUNERIC 
ARGUMENTS. 


<¥> VECTOR 


RESULT: 

<L> VECTOR 
<L> IS THE VECTOR <V> WITH ALL OCCURRENCES OF THE ‘OLD* SEQUENCE 
REPLACED BY THE 'NEW' SEQUENCE. 


EXAMPLES: 
‘THE APPLE IS ON THE APPLE TREE' SR '/APPLE/ORANGE' 
THE ORANGE IS ON THE ORANGE TREE 


"THE PEAR IS ON THE PEAR TREE' SR '/APPLE/ORANGE' 
THE PEAR IS ON THE PEAR TREE 


eeeeee A SEQUENCE CAN BE REPLACED BY ‘NOTHING’, I.E. REMOVED 
‘THE APPLE IS ON THE APPLE TREE' SR '/APPLE /' 
THE IS ON THE TREE 


eeeee NUMERIC ARGUMENTS ARE PERMITTED 
123 4 5 SR 99 3 4 99 400 300 200 
1 2 400 300 200 5 


SUBSTITUTION SRN PAGE 6-105 
L+TEXIT SRN S 
REPLACE NAME BY ‘NEW' SEQUENCE IN <TEXT>. <S>=/NAME/NEW 


INTRODUCTION: 


<SRN> IS A SPECIALIZED ADAPTATION OF <SR>. ONLY COMPLETE WORDS OR APL 
NAMES ARE REPLACED. 


REFER ALSO TO <SSN>. 


ARGUMENTS: 


<TEXT> CHARACTER VECTOR 


<S> CHARACTER VECTOR 
<S> DEFINES AN ‘OLD' ('SEARCH') SEQUENCE, AND A 'NEW' ('REPLACEMENT') 
SEQUENCE. THE OLD SEQUENCE IS THE NAME. <S> HAS THE FORM: / NAME /NEW 
THE FIRST ELEMENT IS TAKEN TO BE THE DELIMITER ELEMENT AND SEPARATES THE 
‘OLD’ SEQUENCE FROM THE ‘NEW’ SEQUENCE. THIS ELEMENT NEED NOT BE A 
DISTINGUISHED CHARACTER (E.G. '/'). 


THE ‘OLD' SEQUENCE IS TAKEN TO BE A COMPLETE WORD OR APL NAME. THEREFORE, 
IT WILL NOT CONTAIN BLANKS. 


THE ‘NEW’ SEQUENCE CAN BE ANY SEQUENCE OF CHARACTERS, BUT IT IS TYPICALLY 
ANOTHER NAME. 


RESULT: 


<L> CHARACTER VECTOR 
<L> IS THE VECTOR <TEXT> WITH ALL OCCURRENCES OF ‘NANE* 


REPLACED BY THE 'WNEW' SEQUENCE. 
BXAMPLES: 


TEIT+' A+A3xVARAtAX2° 

TEXT SRN '/A/FACTOR' 
FACTOR+A3*xVARA*FACTORX2 
eeee+ COMPARE WITH <SR> 

TEXT SR '/A/FACTOR' 
FACTOR+F ACTOR3*VFACTORRE ACTOR*FACTORX2 


TEXT+'THE CAT IS IN A HAT’ 
TEXT SRN '/A/THE' 

THE CAT IS IN THE HAT 

oeeee COMPARE WITH <SR> 
TEXT SR ‘/A/THE' 

THE CTHET IS IN THE HTHET 


"X(OLO;]xIONRATEx2' SRW ‘/QIO/1' 
X(1;]xIONRATEx2 

‘THE INDEX ORIGIN IS O10, WOT OIOR' SRN '/QIO/THE SYSTEM FUNCTION ()IO' 
THE INDEX ORIGIN IS THE SYSTEM FUNCTION QIO, NOT QIOR 
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E+«V VREPL A 
RED LACE IN <V> SINGLE-CHARACTER ABBREVIATIONS DEFINED IN <A> 


IN PREPARING TEXT ARRAYS, IT CAN BE CONVENIENT TO SET UP A SMALL TABLE OF 
COMMONLY APPEARING WORDS, NAMES, OR PHRASES TO BE DESIGNATED BY SHORTER 
STRINGS. THE FOLLOWING FUNCTION USES A TABLE OF SINGLE-CHARACTER 
ABBREVIATIONS TO EXPAND THEM WHEREVER THEY APPEAR WITHIN A CHARACTER 
VECTOR. 


ARGUMENTS: 
<V> CHARACTER VECTOR 
TEXT VECTOR WHICH MAY CONTAIN ABBREVIATION CODES 


<A> CHARACTER MATRIX 
THIS IS THE ABBREVIATION-TABLE. THE FIRST COLUMN CONTAINS THE 
ABBREVIATION CODE. THE REMAINING COLUMNS IN EACH ROW CONTAIN THE 
CORRESPONDING EXPANSION OF THE CODE. 


RESULT: 


<E> CHARACTER MATRIX 
THE VECTOR DERIVED FROM <V> BY SUBSTITUTION FOR EACH CODE 


THE ABBREVIATIONS MUST BE CHOSEN AS CHARACTERS WHICH WOULD NEVER APPEAR 
OTHERWISE, FOR THEY WILL BE REPLACED REGARDLESS OF CONTEXT. 


REFER TO THE LINE IN THE FUNCTION THAT DETERMINES THE LENGTH OF THE STRING 
TO REPLACE BACH CODE. SINCE IT COMPARES AGAINST THE ‘FILL VALUE' (1*0pV) 
DERIVED FROM THE VECTOR, THIS PROCESS MAY ALSO BE USED WHEN ENTERING 
NUMERIC DATA, WITH SINGLE-NUMBER (NOT NECESSARILY SINGLE-DIGIT) CODES 
REPRESENTING NUMERIC VECTORS. SINCE IT SBARCHES FOR WON-FILL VALUES FROM 
THE END OF THE ROW, THE INSERTED STRING WILL NOT END WITH BLANK (OR 

ZERO), ALTHOUGH IT MAY CONTAIN OR EVEN BEGIN WITH SOME. THE 'EXPANSION' 
MAY, FOR SPECIAL PURPOSES, EVEN BE OF LENGTH 1 OR O. 


SOURCE: 
ALGORITHM 148 - BXPANSION OF SINGLE-CHARACTER ABBREVIATIONS (APL QUOTE 
QUAD, 11,2, DECEMBER 1980) K.#.GLATTING AND G.OSTERBURG 


EXAMPLES: 
O+copes 
DDEAR SIR: 
I IN REPLY TO YOUR LETTER OF 
W WE ARE SHIPPING 
N WE CANNOT SHIP 
I THANK YOU FOR YOUR ORDER. 
R WE REGRET THE INCONVENIENCE. 
I YOURS, THE XYZ COMPANY 


TEXT+'DI 13 AUGUST,W 3 MANUALS.TY' VREPL CODES 


eeeee THE DERIVED TEXT IS LONG. FOLD IT INTO SEVERAL LINES. 
50 SPLIT TEXT 

DEAR SIR: IN REPLY TO YOUR LETTER OF 13 AUGUST, 

WE ARE SHIPPING 3 MANUALS. THANK YOU FOR YOUR 

ORDER. YOURS, THE XYZ COMPANY 
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Y+TIME 
RETURN CURRENT TINE OF DAY IW FORMAT #8: 


INTRODUCTION: 


<TIME> IS USED FOR REPORTS. 


ARGUMENTS: 


<Y> CHARACTER VECTOR 
THE TIME NOW IN HH:NN:SS FORMAT 


BXAMPLES: 
TINE 
3:48: 0 AN 


pring 
11 


<FTINE> FORMATS A TIME GIVEN IN NUMERIC HOURS, MINUTES, SECONDS FORN 
INTO THE FORMAT HH:MN:SS (A/P)M 
FTIME 6 47 23 
06:47:23 AM 
FrIME 21 21 21 
09:21:21 PN 
Frime O7S(3+.6) 
03:48:00 4M 
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Z«+CPUCON 
RETURNS ELAPSED CPU AND CONNECT TIME SINCE FUNCTION LAST REFERENCED 


THIS IS A VERY USEFUL SIMPLE FUNCTION TO REPORT HOW MUCH CPU AND CONNECT 
TIME HAS ELAPSED. THE FUNCTION RETURNS THE ELAPSED TIME (BASED ON Oar) 
SINCE THE FUNCTION WAS LAST REFERENCED. IT IS USED TO TIME HOW LONG A 
PARTICULAR SERIES OF ACTIONS TOOK, FOR INSTANCE, IN A SYSTEM WHERE ONE 
WANTS TO GIVE THE USER FEEDBACK. THE RESULT IS CLEARLY DEPENDENT ON THE 
RELIABILITY OF THE TIMES RETURNED BY (JAI. 


RESULT: 


<Z> 2-ELEMENT NUMERIC VECTOR 
THIS IS THE ELAPSED CPU AND CONNECT TIME (IN THE UNITS OF (AI) SINCE THE 
FUNCTION WAS LAST REFERENCED. 


A GLOBAL VARIABLE IS USED TO KEEP TRACK OF THE CPU AND CONNECT TIME 
SETTING: BETWEEN INVOCATIONS OF THE FUNCTION. IF THE GLOBAL VARIABLE IS 
NOT PRESENT IN THE WORKSPACE, IT IS CREATED. CPUCON SHOULD BE CALLED 
ONCE BEFORE ONE BEGINS TO TINE OPERATIONS, IN ORDER TO ‘INITIALIZE' THE 
GLOBAL VARIABLE. 


EXAMPLES: 


EXECUTE THE FUNCTION ONCE BEFORE BEGINNING TO TIME OPERATIONS 
SINK+CPUCON 
«eee. NOW ONE CAN TINE THE OPERATIONS 


Atv /( (021200) 1 (0271200) ) € (071200) 1 (071200) 
CPUCON 


«sees THE RESULT CAN BE FORMATTED USING THE FUNCTION <FCPUCON> 
A*v/( (0271200) 1 (021200) ) € (071200) 1(071200) 
FCPUCON CPUCON 

CPU= 0 M -013 S$ CONNECT= 0 M 2041 S 

seeee FOR EASE OF USE THE COVER FUNCTION <TIMING> CAN BE USED 
Atv /( (021200) 1 (071200) ) € (071200) 1 (0271200) 
TIMING 

CPU= 0M -066 S CONNECT= 0 M 2045 S 


TIMING “ FCPUCON P. 
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.2+FCPUCON X 


FORMAT CPU AND CONNECT TIME INTEGERS <I> 


REFER TO THE DOCUMENT FOR <CPUCON> 
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Y+TIMER N 
TIME <N> EXECUTIONS OF AN EXPRESSION FOR CPU AND CONNECT TINE 


<TIMER> IS EFFECTIVE IN ASSESSING THE PERFORMANCE OF EXPRESSIONS AND 
ALGORITHMS. IT GIVES APPROXIMATE BUT CREDIBLE RESULTS USING STANDARD APL 
SYSTEM FEATURES. IT IS NOT MEANT TO REPLACE MORE SOPHISTICATED BUT 
PROPRIETARY SYSTEM MONITORING FEATURES. THE PROCEDURE FOR USING <TIMER> 
HAS THE FOLLOWING STEPS. 


(1) SET <N> TO SOME APPROPRIATE VALUE, E.G. 20. 

(2) RECORD THE TIME FOR <TIMER N>. THIS TIMES <N> REPETITIONS DOING 
NOTHING THROUGH THE LOOP. IT ASSESSES THE ‘OVERHEAD'. 

(3) INSERT THE EXPRESSION INTO <TIMER> IN THE MIDDLE OF THE LOOP, AS 
NOTED IN THE FUNCTION. 

(4) EXECUTE <TIMER N> SEVERAL TIMES BUT IGNORE THE FIRST EXECUTION. 
(5) ADJUST FOR OVERHEAD AND THEN TAKE THE MEDIAN (CALL IT M1) OF THE 
TIMES. (AN AVERAGE IS SUSPECT WHEN THERE ARE EXCEPTIONAL 

VALUES.) 

(6) THE RESULT, M1, IS A GOOD APPROXIMATION TO THE CPU REQUIRED FOR 
N REPETITIONS, BVEN WHEN THE VALUBS ARE ‘SPREAD OUT’. Mi4tN IS A 
GOOD APPROXIMATION TO THE TIME FOR OWE EXECUTION. 


THE VALUE OF <N> SHOULD BE SET TO THE VALUE THAT PROVIDES A REASONABLY 
LARGE CPU VALUE, E.G. .5 SECONDS. THE ELAPSED TIME <¥(2]> IS FOR 
INFORMATION ONLY ON A TIME-SHARED SYSTEM. ON A SINGLE-USER SYSTEM IT IS 
MORE MEANINGFUL. TWO ALGORITHMS CAN BE COMPARED BY FOLLOWING THE 
PROCEDURE TWICE, ONCE FOR EACH ALGORITHM. 


ARGUMENTS: 


<N> NUMERIC SCALAR 
THE NUMBER OF REPETITIONS OF THE EXPRESSION 


ALSO, INSERT EXPRESSION TO BE TIMED INTO THE FUNCTION 


RESULT: 

<Y> 2-ELEMENT NUMERIC VECTOR 
Y(1) CPU TIME USED (IN UNITS USED BY QAI) 
r(2] ELAPSED TIME 


BYAMPLES: 
seeee ASSESS EXECUTION WITH ‘BMPTY' LOOP <Fi4> IS AN EXAMPLE OF <TIMER> 
Fi4 10 

o1 

.. PUT EXPRESSION TO BE TIMED INTO <TINER> AND EXECUTE 
Vv Y+F14 N;TT 

(1] ABXAMPLE FOR <TIMER> 

(2) rr+2ti+Dar 

(3) LizN+N-1 

C4] +(0>W)/L2 

[5] A#V/( (071200) 1 (0271200) ) (071200) 1 (071200) 

(6] +21 

(7) £2:¥<(2t1404l)-T7 
v 


217 255 


TIMING z "TIMING 


Z+TIMING | 


COVER FUNCTIO: CALL AND FORMAT <CPUCON> 
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REFER TO THE DOCUMENT FOR <CPUCON> 
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Y*ARABIC X : 
RETURNS ARABIC (BASE 10) BQUIVALENT FOR CHARACTER ROMAN NUMERAL <X> 


THIS SIMPLE FUNCTION RETURNS THE EQUIVALENT ARABIC (BASE 10 NOTATION) FORM 
OF A NUMBER GIVEN IN ‘ROMAN NUMERAL' NOTATION. THE RESULT IS RETURNED AS 
A NUMERIC QUANTITY. 


ARGUMENTS: 

<I> CHARACTER SCALAR OR VECTOR 
THIS IS A NUMBER GIVEN IN ‘ROMAN NUMERAL' NOTATION. <X> IS NOT VALIDATED. 
VALID ROMAN NUMERALS, OF COURSE, ARE TRANSLATED CORRECTLY. INCORRECTLY 
WRITTEN ROMAN NUMERALS (E.G. CHARACTER VECTORS SUCH AS MMMDXIVIV), THAT 
ARE COMPOSED OF LETTERS OCCURRING IN ROMAN NUMERALS BUT HAVE INCORRECT 
SYNTAX, ARE ACCEPTED AND TRANSLATED WITHOUT WARNING IN AN ARBITRARY 
FASHION. 


RESULT: 


<Y> NUMERIC SCALAR 
THE ARABIC EQUIVALENT OF <X> 


EXAMPLES: 


ARABIC 'IV' 
ARABIC 'XIV* 
ARABIC ‘MDCCCCLXXXVIII' 


ARABIC ‘MCMLXXXVIII' 


AINCORRECT ROMAN NUMERALS ARE TRANSLATED ARBITRARILY 
ARABIC ‘MMVVICD' 


A<ROMAN> AND <ARABIC> ARE INVERSES 
ROMAN 1988 

MCMLXXXIVIII 
ARABIC ROMAN 1988 

1988 


o1 
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RCS BASE TEXT _ 
BNCODES <TEXT> TO AN INTEGER USING COLLATING SEQUENCE <CS> 


<CS> CHARACTER VECTOR 
COLLATING SEQUENCE. THIS IS IN EFFECT THE 'BASE' OF THE NUMBER SYSTEM IN 


WHICH <TEXT> WILL BE BNCODED. 


<TEXIT> CHARACTER VECTOR 
BACH ROW OF <TEXT> WILL BE ENCODED INTO AN INTEGER. 


RESULT: 


<R> NUMERIC VECTOR 
VECTOR OF ENCODED NUMBERS. THE NUMBERS WILL BE IN BASE (1+pCS) IN ORDER 
TO TAKE ACCOUNT OF UNKNOWN CHARACTERS. 


BXAMPLES: 
CS+'0123456789° 
CS BASE ‘0' 

0 
CS BASE ‘1* 


CS BASE 2 1p'01' 


CS BASE ‘10° 
11 
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Y«DFH X 
RETURN DECIMAL 


<X> CHARACTER MATRIX 
EACH ROW OF <X> IS CONSIDERED TO BE A HEX NUMBER. WNUNBERS MUST BE 
ZERO-PADDED IF NECESSARY. BLANKS ARE TREATED AS UNKNOWN CHARACTERS. A 
SCALAR OR 4 VECTOR IS TREATED AS A 1-ROW MATRIX. 


RESULT: 


<¥> NUMERIC VECTOR 
THE VECTOR OF DECIMAL (BASE 10) EQUIVALENTS. Y(I] IS THE DECINAL 
EQUIVALENT OF X{I;] 


BYANPLES: 


O+N+6 3p'000001010100048354' 


DFH M 
0 1 16 256 171 858 
«+ AFD AND DFH ARE INVERSES 
3 HFD DFA N 


000 
001 
010 
100 
048 
354 


TRANSLATION : FI PAGE 6-115 


RFI A 


THIS FUNCTION IS USED TO CONVERT (TRANSLATE) A TEXT VECTOR REPRESENTING A 
SEQUENCE OF NUMBERS INTO THE CORRESPONDING NUMERIC VECTOR. THIS IS KNOWN 
AS ‘FIXING’ THE INPUT, SIMILAR TO 'FIXING' A FUNCTION. <A> REPRESENTS 
THE NUMBERS IN THE STANDARD APL SYNTAX AND E-NOTATION IS ALSO SUPPORTED. 


ARGUMENTS: 


<A> CHARACTER VECTOR 
. THIS VECTOR REPRESENTS ONE OR MORE NUMBERS. 


RESULT: 

<R> NUMERIC VECTOR 
RCIJ=NUMBER IF THE I-TH CHARACTER STRING IN <A> REPRESENTS A VALID NUMBER 
R(I]=0 IF THE I-TH CHARACTER STRING IS AN INVALID NUMBER 
BNPTY OR BLANK <A> GIVES AN EMPTY RESULT. 


SOURCE: 


CORRECTION TO ALGORITHM 146 -- CONVERSION OF NUMERIC OUTPUT (APL QUOTE 
QUAD, VOLUME 11, NO. 2, DECEMBER 1980) JEFFREY MULTACE 


BXAMPLES: 


FI '1.10 10009 .45 5.6B_S 5.687 hd 
1.1 10009 0.45 0.000056 56000000 “7 


Fr'1 2 14 ana 
1200 


3xFI'10 20 4.3 “45 41° 
30 60 12.9 135 0 
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Y+W HFD D 
RETURN HEX EQUIVALENT OF INTEGERS <D> TO <. 


<D> NUMERIC VECTOR 
THE VECTOR OF DECIMAL (BASE 10) NUMBERS. 


<N> INTEGER SCALAR 
<N> DETERMINES THE NUMBER OF POSITIONS IN THE HEX NUMBERS. W MUST BE 
LARGE ENOUGH TO ACCOMMODATE THE SIZE OF THE NUMBERS IN <D>. IF <N> IS 
TOO SMALL, THE RESULT <Y> WILL BE TRUNCATED. 


<¥> CHARACTER MATRIX 
BACH ROW OF <Y¥> IS CONSIDERED TO BE A HEX NUMBER. Y WILL BE 
ZERO-PADDED IF NECESSARY. Y(I;] IS THE HEX EQUIVALENT OF X{I] 


EXAMPLES: 


4 HFD X*O 1 16 256 345 172 

0000 

0001 

0010 

0100 

0159 

004c 4 

eeeee NOTE THAT IF <N> IS TOO SMALL, THE HEX NUMBERS ARE TRUNCATED 
2 aFD YX 


seeee AFD AND DFE ARE INVERSES 
DFH 4 AFD X 
0 1 16 256 345 172 


TRANSLATION 
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Y+ROMAN X 
-CHARACTER ROMAN NUMERAL EQUIVALENT OF ARABIC (BASE 10) NUMBER <X> 


THIS SINPLE FUNCTION RETURNS THE ‘ROMAN NUNERAL* BQUIVALENT (AS A 
CHARACTER VECTOR) OF AN 'ARABIC' NUMBER GIVEN AS A NUMERIC QUANTITY. 


ARGUMENTS: 
ELEMENT NUMERIC SCALAR OR VECTOR 


<I> CHARACTER VECTOR 
THIS IS A NUMBER GIVEN IN ‘ROMAN NUNERAL' NOTATION. 


BXANPLES: 
ROMAN *% 
ROMAN 14% 
xiv 
ROMAN 537 
DxXxXxXvIT 
a<ROMAN> AND <ARABIC> ARE INVERSES 
ROMAW 1988 
NCMLIXXVIIT 


ARABIC ROMAN 1988 
1988 
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RVI A 
VALIDATE NUMERIC INPUT <A> 


INTRODUCTION: 
THIS FUNCTION IS USED TO VALIDATE THAT A TEXT VECTOR REPRESENTS A SEQUENCE 
OF VALID NUMBERS IN STANDARD APL REPRESENTATION. E-NOTATION IS 
SUPPORTED. 


ARGUMENTS: 


<A> CHARACTER VECTOR 
THIS VECTOR REPRESENTS ONE OR MORE NUMBERS. AWN EMPTY OR BLANK VECTOR 
GIVES AN EMPTY RESULT. 


RESULT: 

<R> NUMERIC VECTOR 
R(I]=1 THE I-TH NON-BLANK SEQUENCE IN <A> REPRESENTS 4 VALID NUMBER 
R(I]=0 THE I-TH NON-BLANK SEQUENCE IS AN INVALID NUMBER 


NOTES: 
THE TECHNIQUE USED TO ANALYZE THE '‘TOKENS' IS WORTHY OF STUDY, AS IT IS 
WIDELY USED. BASICALLY, ONE OR MORE DIGITS IS REPRESENTED BY 1, A PERIOD 
BY 2, A NEGATIVE SIGN BY 3, AN 'E' BY 4%, AND ANY OTHER CHARACTER BY S. 
THEREFORE, A SEQUENCE (I.E. TOKEN) SUCH AS 123.123 IS REPRESENTED BY 
THE NUMBER 121, A SEQUENCE SUCH AS ~4.3S IS REPRESENTED BY 3121, AND SO 
ON. AN INVALID SEQUENCE SUCH AS 123..45% IS REPRESENTED BY 1221. ANY 
REPRESENTATION CONTAINING 5 REPRESENTS AN INVALID SEQUENCE. THE 
REPRESENTATIONS OF ALL TOKENS IS COMPUTED, AND VALID REPRESENTATIONS ARE 
IDENTIFIED. 


EXAMPLES: 

VI '1.10 10009 .45 5.685 5.687 “7° 
fidiaisa 

wr’ 1 2 14 ee 
1100 
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Y+VNAMES V 
VALIDATE NAME SPECIFICATIONS IN <V> 


<VNAMES> VALIDATES A SET OF NAME SPECIFICATIONS FOR CORRECT SYNTAX AND 
RETURNS THE CORRESPONDING TOKENS. THIS FUNCTION IS USED FOR SEVERAL 
FUNCTIONS THAT USE NAME SPECIFICATIONS, AND IS ALSO OF GENERAL INTEREST. 


THE SEMANTIC DEFINITION (I.E. THE MEANING) OF BACH SPECIFICATION IS 
DETERMINED BY THE PROGRAMS THAT USE THEM. SEE <WILDCARD>, <RANGE>, AND 
<PICK> FOR EXAMPLES. 


ARGUMENTS: 
<I> CHARACTER VECTOR 
AN ARBITRARY CHARACTER VECTOR 


RESULT: 
<Y> NUMERIC VECTOR 
Y(I] = TOKEN IF THE I-TH NON-BLANK CHARACTER SEQUENCE IN <X> IS A VALID 
SPECIFICATION. 
Y(I] = 0 IF THE I-TH NON-BLANK SEQUENCE IS AN INVALID SPECIFICATION. 


THE FOLLOWING IS A TABLE OF VALID NAME SPECIFICATIONS AND THEIR 
CORRESPONDING TOKENS: 


D 1 = 3 
* 2 x-Y 131 
Ie 12 I- 13 
eI 21 I 31 
XeY 121 
aIn 212 


XY AND Y ARE SEQUENCES OF NON-BLANK CHARACTERS, INCLUDING <?>, CHOSEN FRON 
<AN>, WHICH IS DEFINED WITHIN THE PROGRAM. IF A NAME SPECIFICATION 
BEGINS WITH A TILDE <~>, FOR BXAMPLE, ~X* OR ~X-Y, THE CORRESPONDING 
TOKEN BEGINS WITH A 4. 


BXAMPLES: 


VNAMES ‘ABC CR-DE A* ~HOW*' 
1131 12 412 


seeee A LARGE SET OF EXAMPLES (FORMATTED USING TOOLKIT FUNCTIONS) 


Velde ~Aex ~~ A A? * - AA?AA® %A AA #AR® A- 2- -4 AAA-B A?-B' 
V+V," ~AB ~A? ~x ~AA?AA® ~*A ~8AA? ~A®A ~- ~A- ~2- ~-A ~A?-B' 


78 10 MATDOWN (** ABOX ADB V) BESIDE v&MATRIX VNAMES V 


Axe (1) AA? AA® 12 4AAA-B 131 ~hA? 421 
~Aae ty A 21 A?-B 131 ~Atd 4121 
aaee, t) Ata 121 ~AB 41 a 43 
4 1 wARe 212 ~A? a1 ~A- 413 
Aa? 1 A- 13 ~* 42 ais 413 
* 2 ed 13 ~AA?AA® 412 ~-A 431 
= 3 -A 31 ~sh 421 ~A?-B 4131 
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A Set of Output Functions 
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Introduction 


There are numerous devices to which an end-user can direct 
his/her output. One can choose from a wide selection of printer 
peripherals and output screens. Files can also be counted among output 
“devices”. How can the APL programmer (or system designer) 
effectively provide the end-user with the options to direct output to the 
various devices available on the system? 


Or consider that when an APL application is moved to a different 
APL interpreter and/or operating system, the APL statements for 
printing output are among the first to be converted, often at great effort 
and expense. How can the APL programmer minimize the effort of 
moving application systems to different implementations of APL? 


One solution for these concerns is to use a set of output utility 
functions. These are functions that “cover” the intricacies of formatting 
text and sending it to various output devices on a particular system. 


This appendix describes the output functions in the Toolkit. 


Features 


The output functions provide the following features: 
(1) switch output devices without recoding application 
programs; 
(2) ability to control particular device characteristics; 
(3) logic for line counting and (optional) page headings; 
(4) easy to learn and use; 
(5) simple functions easily modifiable for particular systems. 


The Output Functions - an Overview 


We call any output peripheral an “output device". This is taken in 
a general sense; hence, for example, a printer, a file, and an array are 
examples of three different output devices. 
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When incorporating the output functions into application 
programs, the first step is to specify the output device and to “open” (i.e. 
initialize) it. This is done by executing OUTOPEN. 


Then the functions OUT and OUTPAGE are used. Every line of 
text that is intended for the output device is passed through OUT. If 
enough text is sent that the end-of-page is encountered, subsequent 
output is directed to a new page and a page heading is printed. If anew 
page must be forced, then OUTPAGE is used. These two functions are 
programmed to direct output and form feeds in the manner appropriate 
for the chosen device. 


The last step, after finishing the report, is to “close” the device. 
This is done by executing OUTCLOSE. 


Notice that if the specified device actually does not require any 
special initialization or closing actions, then OUTOPEN and 
OUTCLOSE are “pass-through” functions only. 


Overall, these functions provide a minimal set of operations for 
any output device. These functions always appear in your programs in 
a canonical sequence, and therefore, no matter the device chosen, (1) 
the device is opened, (2) text output is appropriately formatted and 
sent, and (3) the device is closed. 


Since these functions are ordinary defined functions, they may 
also be executed in immediate execution mode to achieve their purpose 
- provided, of course, that they are executed in the correct sequence. 


Supported Output Devices 


The functions can of course be internally defined to support 
whatever devices are desired and/or available on a particular APL 
system. Because of the tremendous diversity of devices and operating 
systems, a particular implementation will not be described in detail. 
However, the Toolkit output functions are not merely examples. They 
are practical functions that can be used immediately on any APL 
system that adheres to the proposed ISO standard. 
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The functions provided with this appendix support the following 
“devices”: 
A Array - all output is collected in one rank-3 array 
F File - a typical “component-based” file system 
P Printer 
T Terminal - any terminal. Special characteristics, 
including form-feed characters, are ignored. 


The A device is an ordinary rank-3 array and the T device is the 
“quad” device. The F device is logically equivalent to a typical 
component-based file, but these functions define a sequence of variables 
(COMPONENT1, COMPONENT2, etc.) that represent the sequence of 
actual file components. The appropriate calls to CREATE, APPEND, 
and UNTIE (or equivalent) need to be added. The P device is only a 
“skeleton” for a printer; it is included to illustrate a programming 
technique for printers in an IBM-compatible environment. 


The Output Functions - Detailed Description 


For detailed descriptions of functions, arguments and results, 
consult Tables A and B. See also the example in this appendix and the 
function listings in Section 5. 


Usage Notes 


SOME ADVANTAGES OF “DEVICE INDEPENDENCE” 

While debugging your report programs, you can use the terminal 
or file device for your output. This is often much faster than waiting for 
printed output on local or remote printers. After the reports have been 
validated, output can be directed to the printer merely by changing the 
right argument of OUTOPEN. 


One report program can easily be written to produce the same 
report for both the screen and the printer. Of course, the report must be 
suitably designed to be compatible with both devices from a layout 
point of view — this is where a 132-character screen is so useful. 
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USING OUTOPEN 

The output functions can be used in applications that allow the 
end-user to choose the output device. In this case application will need 
to prompt for the device type and possibly other device information, and 
prepare the appropriate right argument for OUTOPEN. 


USING OUT 

As programmer you must use this function for all data that will be 
directed to the chosen device. If you use quad, quote-quad, or implicit 
output, the output functions will be circumvented, and line-counting, 
etc. will be thrown off. 


USING OUTTERM 

Quite often the end-user wants to know the progress of report 
generation when the output destination is a remote printer. As an 
example, suppose the user’s application system prints reports for 
several product groups, and upon completing reports for each product 
group, the user wants to see on the terminal the following kind of 
message: 

.. FINISHED REPORTS FOR GROUP 1 

..FINISHED REPORTS FOR GROUP 2 

etc. 


As programmer you would use OUTTERM with the appropriate text. 
When the user chooses a remote device (as defined by the function), the 
function will display the message (its argument) on the user’s “screen”. 
But when the user specifies his “screen”, OUTTERM would ignore the 
text. This can be demonstrated by using the F device, for example, and 
then re-executing using the T device. 


DEFINING THE OPTIONAL PAGE HEADER 

The “header” function is simply a user-defined function that calls 
OUT one or more times with the heading text. The name of this header 
function is an argument to OUTOPEN. (c.f. REPORT and 
REPORTHEADER in Section 5.) Note that this technique gives 
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“ultimate” control over the heading. For example, page headings can 
be changed according to the page counter, etc. The header is not 
written on a page until at least one character is written to that page. 


Technical Notes 


Device Handling. The prompt “press <enter> key to continue” is 
put into OUTPAGE for the terminal (T) device. This message is 
presented whenever a complete screen of data has been printed. This is 
an example of how special device handling can be implemented in the 
output functions. As another example, a “clear screen” character could 
be sent as well. 


Format Control Characters. In the IBM environment a “format 
control character” must be prefixed before every line when presenting 
output to printers. For example, if the the character ‘l’ is the first 
character in a line, the printer skips to a new page before printing the 
line. Skeleton code for the hypothetical printer device (P) is contained 
in the example functions to illustrate the implementation of the format 
control character. 


Global variables. The output functions require several global 
variables which are set in OUTOPEN. They are conventionally 
prefixed by the five characters GAOUT. The function OUTCLOSE 
could easily expunge them. 


Extensions 


Since these output functions are fairly general, they may be 
extended and supported in several ways, as the following notes suggest. 


Special Device Features. If devices have special features, they can 
be controlled by the output functions through parameters supplied in 
the right argument of OUTOPEN. For example, suppose one is 
supporting a high-speed printer with (a) simplex/duplex (i.e. one- 
sided/two-sided) printing options and (b) the ability to choose from 
several fonts. If this printer device is deviee “P”, then the right 
argument of OUTOPEN could have the following syntax: 
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P,class,font 


Thus, for example, ‘P,S,A’ could specify simplex printing using the APL 
font, and ‘P,D,S’ could specify duplex printing using a “standard” font. 
In the author’s implementation, parameters specifying simplex/duplex, 
font, routing code, number of copies, and banner page information can 
be passed to OUTOPEN. 


For simplicity OUTOPEN as described in this article does not 
assign default values for missing device parameters, but this facility 
can easily be added. 


Adding new devices. When adding new devices or device features, 
the internal definitions of the output cover functions may change 
substantially, but the syntax and semantics of the functions can remain 
the same. (This is illustrated by the “Z” device, which the reader may 
note in the function listings. This “hook” device code accesses the 
author’s device drivers for his particular installation.) The application 
programs do not have to change. The old functions may have to be 
removed from the workspaces and the new functions copied in. 


Grouping. If the subfunctions supporting a particular device are 
very numerous, then grouping could be used. In many cases the 
programmer will be unaware of the subfunctions, and only use the four 
functions presented here. (OQUTHEADER is an example in the example 
set.) In one implementation, the output set consisted of 26 functions 
supporting 6 devices, grouped correspondingly into 6 groups, including 
OUTFGRP (File), OUTRGRP (Remote printer), and OUTHGRP (High- 
speed printer). The programmer copied one group for every device to be 
supported by the application. 

Special characters. Some devices have different codes for the 
percent sign, the dollar sign, etc. In this case, the variables PERCENT, 
DOLLAR, etc. could be defined in OUTCLOSE for each device, and the 
programmer could use these variables in the application code. 
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Line Wrapping. The programmer who wishes to implement line 
wrapping (when text lines are too long) can do so by inserting a general 
algorithm in OUT. 


Device Checking. Special device checking can be incorporated 
into the output functions. For example, Bob Stephan (Quote Quad, Vol. 
15, No. 3 (March 1985), page 7) describes an interesting technique for 
checking printer status when using APL*PLUS/PC on the IBM 
Personal Computer. This technique could be placed into the version of 
OUTOPEN used in that environment. 


Optional Footings and Other Information. Currently the output 
functions provide optional page headings. A similar feature for 
optional footings could be provided. The left argument of OUTOPEN 
could be extended to allow for the (optional) name of a function defining 
the footing text. Also, GAOUTPAGENO gives the current page 
number. Other variables such as the time when a report was started 
could also be provided. 
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Table A Detailed Descriptions of the Output Functions 


ee ee 


<N> AOUTOPEN <P> _|open device defined by <P> and specify 
eader function <N> 


This is the first function that the 
programmer must execute before using any 
AOUT <TEXT> 
AOUTPAGE 


other output function. <P> is a character 
AOUTTERM <TEXT> 


vector specifying the chosen device and any 
other device parameters. <N> is the name 
of the function to be executed to provide the 
text of the top-of-page heading. The header 
function must use AOUT. 


Send <TEXT> to output device 
<TEXT > is a (possibly empty) character 
vector or matrix. The data is a peccniainly 
formatted and directed to the chosen 
ba device. An empty argument has no 
effect. 


New page 
This function forces a new page and any 
further output will appear on the next 
page. A special check is made so that two 
calls to this function without intervening 
output will not force another new page. 


Conditional output of <TEXT> to local 
termina. 


If the chosen output device is the quad 
device, then no action is taken. However, if 
it is any other device, <TEXT > is directed 
to the quad device. No special formatting 
or form-feeding takes place. 


Close device 


The function performs any required 
“closing” operations. 


AOUTCLOSE 
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Table B Device Codes and Parameters 


name,limit ’A,DOCUMENT, 66’ 
name= 
name of array to be defined 
limit= 
number of rows per plane 
(i.e. lines per page) 
limit 
limit= 
maximum number of rows 


per variable, where each 
variable represents a 
component in a file 


limit 

limit= 
maximum number of lines 
per page 

limit 

limit= 
maximum number of lines 


to be displayed before 
“ready“ prompt is displayed 
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Example 


eee. BXAMPLE OF OUTPUT FUNCTIONS 


-.. PUT REPORT IN AN ARRAY CALLED <TEXT> 


«eee. SEE SECTION 5 FOR LISTING OF <REPORT> 


REPORT 'A,TEXT,12° 


eTEXT 
5 12 78 
«eees REFORMAT <TEXT> AS MATRIX AND DISPLAY WITH LINE NUMBERS 
(VQMATRIX(x/2+pTEXT)p.(pTEXT)(2]),' ',MATRIX TEXT 
1 SAMPLE REPORT PAGE 1 
Q nnn nnn oo 3 $5 nn nn nn enn nnn nnn nnn nnn nnn nnn nnn nnn nnn 
3 FIRST LINE OF SAMPLE REPORT - USING THE OUTPUT FUNCTIONS 
4 TWO BLANK LINES FOLLOW ... 
5 
6 
7 IT IS OK TO OUTPUT A MATRIX 
8 MATRIX 
9 MATRIX 
10 MATRIX 
11 MATRIX 
12 MATRIX 
1 SAMPLE REPORT PAGE 2 
Q --------- 3-2-3 3 ee en ee nn $5 ee nnn en nnn nnn nner nnn nnn nn nnn nnn nnn nnn 
3 MATRIX 
4 TO OUTPUT NUMERIC DATA, PUT IN CHARACTER FORM FIRST ... 
5123 
6 
7 
8 
9 
10 
11 
12 
1 SAMPLE REPORT PAGE 3 
2 


FIRST LINE OF NEXT PAGE 
THE QUICK BROWN FOX JUMPED OVER THE LAZY BLACK HEN 
NOW TWO SUCCESSIVE CALLS TO OUTPAGE (ADVANCES ONE PAGE ONLY) 


SAMPLE REPORT PAGE 4 


THIS SHOULD BE TOP OF NEXT PAGE (AFTER QUICK BROWN FOX) 
PRINT 16 LINES ... 


LINE 1 

LINE 2 

LINE 3 

LINE 4 

LINE 5 

LINE 6 

LINE 7 

LINE 8 5 
SAMPLE REPORT PAGE S| 

LINE 9 

LINE 10 \ 

LINE 11 

LINE 12 

LINE 13 

LINE 14 

LINE 15 

LINE 16 


The APL Toolkit 


The APL Toolkit 


Appendix B 
A Technique for Self-Contained 
Functions 


The APL Toolkit 


NOTE 


The technique described in this section was used in the first 
edition for some Toolkit functions, and has been moved to this 
appendix. 

If used at all, it would probably be used for functions that are 
typically copied into other workspaces for program development 
purposes. These functions include NL, FGL, SORTL, and others in 
the Programming Tools category. 

Based on an idea first noted in the XREF workspace, it is an 
interesting technique for avoiding name conflicts and 
inconvenience of copying several functions to do one quick task. 


But bear in mind that this technqiue has disadvantages: it is 
somewhat cumbersome to set up, debug, and maintain. 


Another technique to attain the same ease-of-use and technical 
goals is to group the functions and consistently rename the 
subsidiary Toolkit subfunctions. For example, the subfunctions for 
NL could be renamed to NUVNAMES, NLPICK, NLWILDCARD, 
NLBOX, etc., and the entire collection called NLGRP. The original 
functions would be maintained in the Toolkit workspace, and the 
special “NL group” set aside for program development purposes. 


PROGRAMNING-TOOLS NL1 
ALY+NLS NL1 NLC 
NAMELIST OF FUNCTIONS OR VARIABLES <NLC> WITHIN SPECIFICATION <NLS> 


<NLi> IS A VERSION OF <NL> WRITTEN IN 'SELF-CONTAINED' FORM. 


IF A PROGRAMMER WISHES TO PREPARE AND USE SELF-CONTAINED UTILITIES, HERE 
IS A SUGGESTED WAY OF DOING IT. COMPARE THIS METHOD WITH THAT OF WRITING 
LARGE UNWIELDY FUNCTIONS IN 'MONOLITHIC' FORM, THAT IS, WITHOUT ANY 
SUBFUNCTIONS. USING THE TECHNIQUE ILLUSTRATED HERE, THE FUNCTIONAL 
APPROACH TO DEVELOPING SOFTWARE CAN BE MAINTAINED. SOME SPECIAL PROGRAMS 
WERE WRITTEN TO SUPPORT THIS TECHNIQUE. 


ARGUMENTS AND RESULTS: 


THE LOCAL NAMES ARE SHADOWED TO AVOID CONFLICTS WITH NAMES IN THE 
WORKSPACE. 


THE NANES OF THE ‘LOCAL FUNCTIONS' ARE PRECEEDED BY ‘NL' SO THAT THEY CAN 
BE RECOGNIZED IF A LISTING OF ALL FUNCTIONS BEGINNING WITH UNDERSCORED 
LETTERS IS DONE. THE TOOLKIT WORKSPACE FOLLOWS THE CONVENTION THAT 
FIRST-LETTER UNDERSCORES ARE RESERVED FOR NANES TO AVOID ‘SHADOWING' OR 
‘NAME CONFLICTS', BUT THIS CONVENTION NAY NOT BE FOLLOWED IN OTHER 
WORKSPACES. TO REMOVE THE ‘NL' NAMES FROM A LIST OF WANES, SIMPLY APPEND 
‘mHLe' TO THE LEFT ARGUMENT. (SEE EXAMPLES.) 


BXAMPLES: 


weeee ALL VARIABLES STARTING WITH 'GA' (BUT NOT ‘GAOUT') 
"Gax ~GAOUT*' NL1 2 


Gac GADOCPN GANROWS GASATRACEFLAG GAXXX 
GACPUCONAOT GAFNCAT GAPACTABLE GATEMP GaYYY 
GADOCCAT GAFNFN GARBVNANES GATIMETRACEACP 
GADOCFN GAFNPN GASORTACS GATRACEAOLD 


weeee ALL FUNCTION NAMES STARTING WITH LETTER SEQUENCES BETWEEN 'AR' AND ‘CE’ 
"AR-CE' WL1 3 


ARABIC = BAL BASE BOXER = BOX1 BR CAPTURE CATOFFUN 
ARRAY BALANCE BESIDE BOXF BP BROWSE CATEGORY 
seees FORCE STANDARD MATRIX OUTPUT 
"ARe' NL1 3 
ARABIC 
ARRAY 


eeeee SEARCH CRITERIA CAN BE COMBINED 
"ARs Jx* NL1 3 


ARABIC ARRAY JC aL dR JULIAN 
aeeee LIST OF ALL NAMES BEGINNING WITH UNDERSCORED LETTERS 

‘A-' NL1 2 3 
¢c z LDB NLRANGE NLUNPACK SINK ZDL 
CODES L NLGRADEUP WLS NLVNAMES TIBXT AXITA 
DEFAULT NLBOX NLMATDOWN WNLSINK NLWILDCARD TOKENS 
Z NLC NLPICK NLT r 


PEK 
.. REMOVE THE NAMES STARTING WITH 'NL' FROM THE LIST 
‘A- ~HL*' NL1 2 3 
c DEFAULT J PEK rerr AXTA 
CODES I é SINK TOKENS ZDI 
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NL1 
y NLY+NLS WL1 


NLC; NLBOX;NLDB;NLGRADEUP; NLMATDOWN; NLPICK; NLRANGE ; NLSINK;NLT;NLUNPACK;NLVNAME 
S;NLWILDCARD;0I0 


(1) 


elelaleleieleieteleleteteduislalelelanted 
NNER BREE ERR ROBY HUEWN 
POWBYVAUFON KOU 


ANAMELIST OF FUNCTIONS OR VARIABLES <NLC> WITHIN SPECIFICATION <NLS> 
a.K PROGRAMMING-TOOLS 
a.T 1988.5.15.13.53.42 

O1o+1 

NLT+Q1CR ‘WLi' 

NLT+(( (HLT 314)4.='annn')11),0)4+NLT 

NUSINK+QFX O 2 +(NLT(;2]='6')/NLT 

NLT NLUWPACK '01234578' 


a 

+(OeNLVNAMES NLS) /NLERR1 
NLY+QWL|HLC 

ASORT AFTER PICKING FROM OBJECTS 
NLY+(NLY NLPICK NLS)/NLY 
NLY+NLDB NLY(['' NLGRADEUP NLY;] 

aDO NOT REFORMAT IF AT LEAST ONE OF NLC IS NEGATIVE 

+(1exMLC)/0 
NLY+'' NLMATDOWN NLY 

70 

NLERR1:0+'NL1 DOMAIN ERROR’ 

AAAA 

nO Y*CHARS NLBOX X;FILL;LEN;N;0F;POS;S;SEP;X;010 

ao Qro+1 

a0 Y+ 0 0 px 

aod +(0epx)/0 

AO CHARS+CHARS, (*/pCHARS)+2*0pX 

AO SEP+CHARS(1) 

nO FILL+CHARS(2) 

AO X+X,(SEP# 1+X)/SEP 

AO POS+(X=SEP)/.1pX _ 

nO M+[ /LEN+ 1+POS-0, 1+P0S 

AO OF+(LEN+1)*.LiM 

AO S+Q(M,pLEN)p0, 1+POS 

a0 X[(X=SEP)/ipX]+FILL 

a0 Y+X(S+0F] 

al Y+NLDB V;B 

ai +((0 1 2 =ppV),1)/L1,L1,L2,BRR1 

al Li: 

al Be’ '#¥+" ',7 

al Y+1+(BV10B)/V 

al +0 

al L2: 

al Bev/' '#V¥+" ',7 

al Y+ 0 1 +(BV10B)/V 

al +0 

ai ERR1:Q+'NLDB RANK ERROR’ 

a2 Y+CS NLGRADEUP M;C;1;0I0 

a2 OL0¢1 

a2 Y¥«i0 

a2 +(0€pM)/0 

a2 +(~(ppM)e 1 2)/ERR1 

a2 CS+((0=x/pCS)/OAV) , (0#x/pCS)/CS 

A2 N+(2+(pM), 1 1)pM 

a2 C+. 1itpM 

A2 Ye.ltow 

a2 I+0 

a2 L10: 

a2 +((14+pC)<I+I+1)/0 

a2 Yer(acsiM(Y;C(II]] 

a2 +L10 

a2 ERR1: 
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[61] 2 O+'NLGRADEUP RANK ERROR’ 

[62] a3 Y+A NLMATDOWN M;COLS;MAT;ROWS;W;QIO 

(63] a3 Oro+1 

C64] a3 4+d,(*/p4)+0PW,1 

[65] a3 W++/4 

[66] a3 MAT+(¥M),((1tpM),AL2])p" * 

£67] a3 ROWS+[(1+pMAT)#COLS+1[ LWt 1+pMAT = 
[68] a3 MAT+ 2 1 3 Q(COLS,ROWS, 1+pMAT)p((ROWSxCOLS), 1t+pMAT)*+MAT 
[69] a3 MAT<((1+pMAT) ,x/1+ MAT) pMAT 

[70] a3 Y+(0,-4(2])+MAT 

(71] a4 Y«M NLPICK V;B;1;MV;R;TC;TF;TOKEN;0IO 

(72] 94 Oro+1 

(73] as +(~(pp¥)e« 0 1)/BRR10 

C74] ay MV+'* NLBOX V+NLDB V 

[75] a4 +(2#ppM)/ERR20 

[76] av Y¥+(itpM)p0 

C77] as +((O0epM),0€p7)/0 

[78] a4 TC+NLVNANES V 

[79] a% +(0€eTC)/ERR30 

[80] a¥ Re(1 12 21 121 212 2 13 31 131 3 ,7C)C(41 412 421 4121 4212 42 413 
431 4131 43 ,7C).TC) 

[81] a4 I+0 

[82] a4 L20:+((1tpMV)<I+I+1)/0 

[83] a4 TF+'~'=1+TOKEN+NLDB NV(I;) 

[84] a’ TOKEN+TF+TOKEN 

[85] n¥ +(RETJ= 1 12 21 121 212 2 13 31 131 3)/(6pL304),(4pL30B) 
[86] w4 L304:B+N NLWILDCARD TOKEN 

[87] as +£30 

[88] ns L30B:B+N NLRANGE TOKEN 

[89] as +230 

[90] a4 £30: 

[91] a4 +(1 0 =TF)/L504,L50B 

[92] w¥ LS04:Y*(YvI=1)x~B 

(93] a4 +220 

[94] a4 LSOB:Y+¥vB 

[95] as +L20 

[96] a4 BRR10: 

[97] 4 O+'NLPICK RANK ERROR‘ 

[98] a4 O+'RIGHT ARGUMENT DOBS NOT HAVE RAWK O OR 1° 
[99] v4 +0,0Bx 'Y’ 

{100]n4 ERR20: 

(101]n4 O+'WLPICK RANK ERROR' 

(102]n4 [+'LEFT ARGUMENT DOES NOT HAVE RANK = 2° 
(103]n4 +0,08x 'Y' 

[104%]a% EBRR30: 

(105]n4 D+'NLPICK DOMAIN ERROR‘ 

[106]a4 O+'IWVALID ITEMS ( ',(HLDB,* ',(TC=0)/MV),' ) IN RIGHT ARGUMENT‘ 
(107Ja4 +0,08x 'Y' 

(108]a5 Y+M NWLRANGE S;CS;L8;N;NN;X;0CT;010 

{109]a5 Qro+1 

{110]a5 OcT+o 

(111]a5 Cs+' 
ABCDEFGHIJKLNNOPQRSTU VWXYZ AABCDEFGHI¢KLNNOPQRSTUVWXYZA0123456789()' 
(112]a5 LH+CS(1,pCS] 

(113]a5 WW+'-' NLBOX S,'-' 

C118]n5 M<((1tpM),("1tpNN)[ 1t+pN) +H 

(115]n5 WHC1s)+(LAL1 1),WWC13])C(' 2°, WWC13]).WWL13)) 
(116]nS WNC2;J+(LAL2 21,WNC23])C(" 2°, WWC23]) W231) 
(117]aS Y+(pCS)18CSi NN 

(118]aS ¥+(pCS)s8CSiM[ 31 1tpNN] 

[119]a5 Y¥+(x(1]sw)awsx(2] 

(120]n6 M NLUNPACK X;T 

[121]n6 L10:+(0€pX)/0 

(122]n6 T+FX O 2 +(M[32]=(1tF)) 4M 

(123]n6 Yei+x 
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(124]a6 +L10 
(125]a7 Y+NLVNAMES V;4N;R;T30I0 
(126]a7 Oro+1 
(127]a7 
AN+* 20) ABCDBFGHISKLMNOPQRSTUVWXY ZAABCDEFGHIYKLNNOPQRSTUVWIYZA0123456789" 
[128]a7 V+NLDB V 
(129]a7 +(O0epY+V)/0 
[130]a7 T+(* ',((paW)p'1"),*2345")0(" ',AN,*#-~")1F) 
(131]a7 Re,2((Te'234")vTe" ', 147)/T 
(132]a7 Y+RxRe 1 12 21 121 212 2 13 31 131 3 41 412 421 4121 4212 42 413 431 
4131 43 
(133]a8 B+M NLWILDCARD S;C;1;J;NAME;WP;X;0I0 
(134]a8 Oro+1 
(135]a8 S+,s 
(136]98 i 
*((1 Rta, sS), (224/28), ('eta1ts),(t#'= 14S), ('"eS),1)/ALL MID, SUFF,PREF,LR, 
BIACT 
(137]n8 ALL: aBVERYTHING PHRASE: S=* 
(138]a8 B+(1tpM)p1 
(139]n8 +0 
(140]n8 NID: ASOMEWHERE IN BETWEEN PHRASE: S=*WANE* 
(141]a8 WAMB+i+ 145_ 
C142]a8 X+((1tpM),(~1+pM) FpWAME)*M 
(143]n8 I+(11+(pX)(2]-pWAME)*.+ 1+. pNANE 
(144]n8 +L50 
(145]a8 SUFF: nSUFFIX PHRASE: S=*NAME 
(196]n8 WANE+1+S 
(147]n8 X+((1tpM) ,-pNANE)*+(-+/A\O" '=N)ON 
(148]a8 I+(1,pNANE) pi pNANE 
(189]a8 +250 
(150]n8 PREF: mPREFIX PHRASE: S=WAME* 
(151]n8 WAME+ 14S 
C152]n8 X+((1+pM) ,pNANE) +N 
(153]n8 I+(1,pNAME) pi pNANE 
(154]a8 +250 
(155]a8 BXACT: mBXACT PHRASE: S=NANE 
[156]n8 C+("1tpM) Ips 
[157]n8 NANE+CtS 
(158]a8 X+((1tpM),C) +N 
(159]a8 I+(1,C)pic 
[160]a8 +Z50 
(161]n8 £50: 
(162]a8 X+x(;7],(0.5] '?' 
(163]a8 WP+'?'=NAME 
(164]n8 J+WP/ipWP 
(165)n8 X0333J)+(x01 
(166]n8 Bev/X(1333)4 
(167]a8 +0 
(168]a8 LR: aLBFT - RIGHT PHRASE: S=NAME*NAME 
(169]a8 B+(M NLWILDCARD(S.'*')+S)AM NLWILDCARD(~1+S.'*')+S 
v 


")0C1) XEs330] 
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Appendix C 
A Summary of Expressions 
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NOTE 


This appendix has been included in response to requests for a 
list of expressions used to develop the Toolkit functions. 


This very useful list was originally distributed at an APL 
Conference some years ago, and is not known to be generally 
available. It is therefore published here in this appendix to share 
among “APL people”. 

The interested reader can also consult similar useful lists of 
expressions in the Finnapl Idiom Library and in Robert A. Smith’s 


noteworthy paper, Boolean Functions and Techniques. 


APL IDIOMS -- STRUCTURAL 


(( VECTOR: VECTOR) =1p VECTOR) /VECTOR 


(1,1+VECTOR# 19VECTOR)/VECTOR 


(1 1&<\MATRIXA. =QMATRIX) MATRIX 


(1,14V/MATRIX#” 10MATRIX) #MATRIX 


(1[7” 2t+pARRAY )pARRAY 


(112+ pARRAY )pARRAY 
((pVECTOR),1)p VECTOR 
(1,9 VECTOR) p VECTOR 


(((0 1% pMAT2)[ pMAT1)+MAT1),[1) 
((0 1*pMAT1)[ pMAT2) +MAT2 


(((1 0x pMAT2)[ pMAT1) +MAT1),[2] 
((1 Ox pMAT1)[ pMAT2) tMAT2 


»vECc1,C0I0+.5] VEC2 
(LO-1)+11+HI-LO 


(VBEC1, VEC2)CA4B00L) 


X,COLO-(#\2pa/2>(ppX),ppY)/.5 11 ¥ 


X,COLO+(w\2pa/2>(ppX),pp¥)/.5 11 ¥ 


(,8,01.5] 1)/,8,01.5] ~B 


SELECT UNIQUE ELEMENTS 


SELECT UNIQUE ELEMENTS FROM 
A SORTED VECTOR 


SELECT UNIQUE ROWS: 


SELECT UNIQUE ROWS FROM 
A SORTED MATRIX 


MAKE A ROW-ORIENTED MATRIX 


MAKE A COLUMN-ORIENTED 
MATRIX 


MAKE A 1 COLUMN MATRIX FROM 
A VECTOR 


MAKE A 1 ROW MATRIX FROM 
A VECTOR 


CATENATE 2 MATRICES ALONG 
DIMENSION 1 


CATEWATE 2 MATRICES ALONG 
DIMENSIOW 2 


INTERLEAVE 2 VECTORS OF SAME 
LENGTH 


INTEGERS BETWEEN LO AND HI 
LIMITS 


MESH 2 VECTORS ACCORDING TO 
BOOLEAN VECTOR 


CATENATE/LAMIWATE 2 ARRAYS 
TO FORM ROWS 


CATEWATE/LAMINATE 2 ARRAYS 
TO FORM COLUMNS 


GENERATE EXPANSION VECTOR 
PROM BOOLEAN VECTOR 


APL IDIOMS -- SORTING AND SEARCHING 


VECTORL AVECTOR) 


MATRIX(CA(1+pXKEY )LQK EY. MATRIX; ) 


OL0++4A\~MATRIX1A. =QMATRIX2 
( VECTOR=SCALAR)/\p VECTOR 
L/VECTOR ELEMENTS 


(SCALA Re VECTOR) *VECTOR\ SCALAR 
(VECTOR#SCALAR)\1 


VECTOR AXEY1 VECTOR) 


a SORT A VECTOR 
n SORT THE ROWS OF A MATRIX 


a FIRST INDEX OF ROWS IW A 
MATRIX | 


a ALL INDICES OF A SCALAR IN 
A VECTOR 


a FIRST OCCURRENCE OF SEVERAL 
ELEMENTS IW A VECTOR 


an FIRST OCCURRENCE OF OR ZERO 


a FIRST INDEX IN VECTOR WHICH 
IS NOT SCALAR 


n SORT VECTOR IN ORDER 
SPECIFIED BY KEY 


APL IDIOMS -- FORMATTING 

(+/A\' "ARRAY )QARRAY 

(1-(ARRAY=' ')11)QARRAY 

WIDTHt ((L-/.5*WIDTH, pTEXT)p' '), TEXT 
(v\' 'ePEXT)/TEXT 

(OV\' 'eOTEXT) /TEXT 

((TEXT#! ') vPEXT#1>TEXT)/TEXT 


((2xpPEXT)p1 0)\TEXT 


LEFT JUSTIFY 

RIGHT JUSTIFY 

CENTER 

REMOVE LEADING BLANKS 
REMOVE. TRAILING BLANKS 


REMOVE DUPLICATE, ADJACENT 
BLARKS 


DOUBLE SPACE TEXT 


APL IDIOMS -- PREDICATES 
0=p VECTOR 

OepARRAY 

a/,ARRAY€O 1 

A/ , ARRAY =[ ARRAY 

0=1+0pARRAY 

A/BLEMENTS€ SET 

V/BLEMENTS€SET 

A/VBCTOR1=VECTOR2 

VECTORIC AVECTOR1 A. =VECTOR2( AVECTOR2] 


A/CAXIS] ARRAY=[\CAXIS] ARRAY 


A/CAXIS] ARRAY=\\CAXIS] ARRAY 


EMPTY VECTOR? 
EMPTY ARRAY? 

BOOLEAW ARRAY? 
INTEGER ARRAY? | 
NUMERIC ARRAY? 

ALL MEMBERS OF A SET? 
ANY MEMBERS OF A SBT? 
2 VECTORS IDENTICAL? 


2 VECTORS PERMUTATIONS 
OF EACH OTHER? ~ 


ARRAY IN ASCENDING ORDER 
ALONG CERTAIN DIMEWSION? 


ARRAY IN DESCENDING ORDER 
ALONG CERTAIN DIMENSION? 


APL IDIOMS -- BOOLEAN SHIFTS 


x*o0101100 
Xa 140,X ooo00100 
Zar 141.2% 0101000 
Xa1+X,0 ooo1i000 
Xan~1+X,1 o100100 
(~X)A 140,X 0010010 
~Xv 141,X ooo0o00o0o01 
(~X)A1+X,0 tou oo1 
~XV1+X,1 0000010 
Xe 14(14X),X 0111010 
X= 1e(~1tx),X OHO KOO0L1OL 
X#1+X, 14X 111201201 
Xs1+X,~ 1tX oooi010 


wr oo 


ro fF Oo 


rR © oO 


coo eo 


eH oF © 


OWE AND PREVIOUS IS ONE 
ONE AND PREVIOUS IS ZERO 
OWE AND WEXT IS ONE 

OWE AND NEXT IS ZERO 

ZERO AND PREVIOUS IS ONE 
ZERO AND PREVIOUS IS ZERO 
ZERO AND NEXT IS OWE 
ZERO AND NEXT IS ZERO 


PREVIOUS BIT IS DIFFERENT 
PREVIOUS BIT IS SAME 
NEXT BIT IS DIFFERENT 
WEXT BIT IS SAME 


oF BE 


oo 


ro 


APL IDIOMS -- 
X+1 
A\X 1 
Xe1 
~ANX t) 
¥+0 
WAY t) 
Y+o 
ov\Y 1 
2+0 
<\Z t) 
Xe1 
GANOX t) 
Xe1 
G~A\OX 1 
Ye1 
Ov\OY 1 
Ye. 
o-v\oY 0 
Z+0 
9<\ OZ 0 
V+o 
av 0 
V+o 
Way 0 
Veo 


(nV) Ae\V 0 


ofr BR 


BOOLEAN 


Pe 


or BR RO 
on 
or oo 


PR Ro 


BRO FRO OF oF 


RO 


HO Co 


or 


co Co FO BK 


Bo RO 


Ro 


BPR oF 


co co FO BRK Co ro 


FO HO Bo 


Ro RR oF 


or Co oo 


cor OF BH HO 


BR on 


on 


SCANS 


or BR BO of 
co CF CO KO BH om 
eco Cfo OF BR BO Oo 
Be ° o Feo co 


on 
on 


cr Co FO FO OF co 
BR OF BE 

ho Co oF 
eco FO Co 


co 
HR BR of 


eo co co 
° 
HO FRO BRO 


co 
on 


BR CF CO FO Co on orn CO HO HO oo 


or 
eco 


on 


eo co FO CoO OF BK 


OWES UNTIL FIRST ZERO FROM LEFT 


OWES AFTER FIRST ZERO FROM LEFT 


ZEROS UNTIL FIRST OWE FROM LEFT 


ZEROS AFTER FIRST ONE FROM LEFT 


FIRST ONE FROM LEFT 


OWES UNTIL FIRST ZERO FROM RIGHT 


ONES AFTER FIRST ZERO FROM RIGHT 


ZEROS UNTIL FIRST ONE FROM RIGHT 


ZEROS AFTER FIRST OWE FROM RIGHT 


FIRST ONE FROM RIGHT 


BOOLEAN FIWITE STATE MACHINE 


ONES AND OWES BETWEEN ONES 


OWES BETWEEN ONES 


APL IDIOMS -- NUMERICAL 
MATRIX*(pMATRIX)p VECTOR 


MATRIXx&( OpMATRIX)p VECTOR 


(+/CAXIS] MATRIX)+#($pMATRIX)CAXIS) 


ARRAY-0,CAXIS] (-AXIS=\ppARRAY)+ARRAY 


1 |ARRAY 
O 1ITARRAY 


1+LBASE@NUMBER 


(10*4)| NUMBER 
L¥UMBER#10+*¥ 

L.S+WUMBERS 

(10*-¥ )*L.5+¥UMBERS*10*H 


MULTIPLY VECTOR TIMES 
ROWS OF MATRIX 


MULTIPLY VECTOR TIMES 
COLUMNS OF MATRIX . 


AVERAGE ALONG SPECIFIED 
AXIS 


SUCCESIVE FIRST DIFFERENCES 
ALONG SPECIFIED AXIS 


PRACTIOWAL PART OF NUMBER 


SPLIT INTEGER AND FRACTIONAL 
PART OF NUMBERS 


NUMBER OF DIGITS NEEDED TO 
REPRESENT NUMBER IN BASE 


KEEP W DIGITS FROM RIGHT 
DELETE W DIGITS FROM RIGHT 
ROUND TO NEAREST INTEGER 


ROUND TO W DIGITS RIGHT 
OF DECIMAL POINT 


‘ APL IDIOMS -- OBJECT GENERATORS 


(¥,H)p1 Mp0 

(i¥)e.20¥ 

(iN)e.<cud 

INTEGERAVECTORe .21[ /INTEGERA VECTOR 
INTEGERAVECTORe «291 [ /INTEGERAVECTOR 
(2*N)TO,1 1+2*2*H 


IDENTITY MATRIX 

UPPER TRIANGULAR MATRIX 
LOWER TRIANGULAR MATRIX 
PREFIX 1's 

SUFFIX 1'S 

TRUTH TABLE FOR WN VARIABLES 


Want to send the Editor a message? 


Use the Reader’s Comment Form - next page. 


The APL Toolkit 


Reader’s Comment Form 
The APL Toolkit, Second Edition 


Please feel free to comment on any aspect of this publication or the functions 
described in the Toolkit collection. 


Thank you for your comments. 


Please return to: 


CIPS APL SIG - Toronto 

Attention: Toolkit Editor, 

P. O. Box 384, Adelaide Street Station, 
Toronto, Ontario, Canada. 

M5C 235 
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